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LA PUISSANCE DERRI 


CRAYON OPTIQUE 

Un ensemble sophistiqué pour 
vos graphismes. Il comprend 
une palette de couleurs. Tracé 
au point par point, choix des 
brosses, mélange de textes et 
création de sa propre police de 
caractères. 

Il permet d’agrandir, de réduire 
vos dessins, de créer des cer¬ 
cles, des rectangles, des lignes, 
des courbes, d’y ajouter la 
couleur. 

Et il y a aussi possibilité de 
stockage et de rechargement, 
de réglage du stylo optique et 
de copie d’écran sur 
imprimante. 

Version cassette et version 
ROM. 

Version cassette (Pour CPC 464 
seulement) : 249 F. 

Version ROM (Pour CPC 464 et 
CPC 6128) : 349 F. 

SYNTHETISEUR 
DE PAROLE 

Un synthétiseur de parole et un 
amplificateur stéréo puissant 
qui apporte une extraordinaire 
qualité au haut parleur interne 
de l’ordinateur. 

L’utilisation est aisée et le 
vocabulaire pratiquement 
iilimité. 

Fourni avec des morceaux de 
textes et un utilitaire de trans¬ 
cription phonique pour faciliter 
l’utilisation. 

Il comprend 2 haut parleurs de 
10 cm de large, d’une grande 
qualité. 

Version cassette et version 
ROM. 

Version cassette (Pour CPC 464 
seulement) : 349 F. 

Version ROM (Pour CPC 464 et 
CPC 6128) : 490 F. 



EN VENTE CHEZ 


18 BOURGES - SDTE, 210 av. Général de Gaulle. 48.65.11.52. 

45 ORLEANS - AGB, 11, rue d’Illiers. 38.62.77.95. 

59 VILLENEUVE D’ASCQ - MICROPUCE, 15, chaussée de l’Hôtel de Ville. 20.47.18.57. 

75010 - GENERAL, 10, bd de Strasbourg. 42.06.50.50. 

75011 - AMIE, 11, bd Voltaire. 43.57.48.20. 

75011 - VISMO, 84, bd Beaumarchais. 43.38.60.00. 

75015 - HYPER CB, 183, rue Saint-Charles. 45.58.23.68. 

75017 - MICRO-PROGRAMMES-5, 82-84, bd des Batignolles. 42.93.24.58. 

94300 MONTREUIL - ORDIVIDUEL, 20, rue de Montreuil. 43.28.22.06. 









ERE VOTRE AMSTRAD 



EXTENSION DE 
MEMOIRE 64K 

Transforme votre CPC 464 en 
un 6128 (excepté pour les 
ROMS) et lui donne 128K de 
mémoire. 

L’extension 64K donne une con¬ 
figuration de RAM équivalente à 
celle du CPC 6128. Elle est 
accompagnée du logiciel RSX 
qui permet d’utiliser la mémoire 
pour stocker les pages-écrans, 
les fenêtres, les tableaux et les 
variables. 

Elle permet l’utilisation du CPM 
plus, tel qu’il se présente sur le 
CPC 6128. 

Il n’est pas nécessaire d’y ajou¬ 
ter une autre alimentation, 

599 F. 

EXTENSION DE 
MEMOIRE 256K 

Transforme votre CPC 464 en 
un 6128 (excepté pour les 
ROMS) et lui donne 320K de 
mémoire. 

L’extension 256K donne une 
configuration de mémoire équi¬ 
valente à celle du CPC 6128 
mais comporte 4 blocs supplé¬ 
mentaires de 64K. 

Elle est accompagnée du logi¬ 
ciel RSX qui utilise la mémoire 
pour stocker les pages-écrans, 
les fenêtres, les tableaux et les 
variables. Les 250K peuvent 
stocker 16 pages-écrans de 16K. 
Elle permet l’utilisation du CPM 
plus, tel qu’il se présente sur le 
CPC 6128. 

Il n’est pas nécessaire d’y ajou¬ 
ter une autre alimentation, 

1199 F. 

DISQUE SILICONE 
256K 

256K de RAM disque beaucoup 
plus rapide que le drive habituel 
et de capacité plus importante. 

Il peut être utilisé comme un 2 e 
lecteur, ou comme un 3 e lecteur 
sur un système à 2 lecteurs. 

Il répond à toutes les comman¬ 
des habituelles du disque Ams¬ 
trad : chargement, sauvegarde, 
catalogue... 

Les données peuvent être trans¬ 
férées à partir dun disque ou à 
partir de la RAM. Les program¬ 
mes d’application peuvent ainsi 
avoir une vitesse d’utilisation 
beaucoup plus importante. 

1199 F. 


dftponks 

/manufacturers of powerful peripherals 


REVENDEURS CONTACTEZ-NOUS : 
MICRO-PROGRAMMES-5. Tél. 42.93.24.58 
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Notre rédaction a sélectionné parmi la nombreuse littérature consacrée aux ordinateurs Amstrad les ouvrages réfé¬ 
rencés ci-dessous, désormais à votre disposition par correspondance. 


L'utilisation de l’Amstrad 

CPC 464 Hachette (250 p.) 

Toutes les possibilités de 
l’Amstrad développées et 
commentées. 125 F. 

Autoformation à l’assembleur 

Micro Application (250 p. livre 
+ cassette) 

L’assembleur du Z 80 vous fait 
peur ? C’est pourtant facile avec 
cette autoformation remplie 
d’exemples et d’exercices, 
accompagnée d’une cassette 
contenant un éditeur-assembleur, 
afin d’appliquer immédiatement 
vos leçons.195 F. 

Montages, extensions et 
périphériques du CPC. Micro 
Application (430 p.) 

Cet ouvrage contient des shémas, 
tracés de circuits imprimés, 
programmes et explications 
détaillées pour réaliser par 
exemple : une RS 232, un 
programmeur d’EPROM, des cartes 
d’extensions, etc. 199 F. 

La bible du programmeur. 

Micro Application 680 p. + 
plan détaillé des CPC 464 
et 664) 

Une “bible” faite pour ceux qui 
désirent connaître les moindres 
détails de leurs CPC. Un ouvrage 
indispensable. 249 F. 


Programmation du Z80. Sybex 
(590 p.) 

Le “Zaks” est la référence en 
matière de programmation du Z80. 
Un livre pour apprendre le jeu 
d’instructions, comprendre le 
déroulement d’un programme, 
mais aussi découvrir le 
cheminement de l’information. 

198 F. 

Basic Plus, 80 routines sur 
Amstrad. PSI (160 p.) 

De nouvelles possibilités pour 
ceux qui maîtrisent déjà le Basic 
Amstrad. Au menu : le son, le 
graphisme, et l’animation. 100 F. 

Clefs pour Amstrad. PSI (200 p.) 
Un mémento complet sur les CPC 
464, 664, 6128. On y trouve 
notamment le jeu d’instruction du 
Z80, les points d’entrées des 
routines, la structure interne des 
machines, les connecteurs et 
brochages des principaux circuits. 
140 F. 

Le livre du lecteur de disquette 
Amstrad CPC. Micro 
Application (300 p.) 

Ce livre contient le listing du DOS 
entièrement commenté, un 
utilitaire qui ajoute les fichiers 
relatifs à l’AMSDOS, un moniteur 
disque, etc. Vous trouverez dans 
ce livre tout ce qui concerne la 
programmation et la gestion des 


données avec le "floppy” DDI-1 ou 
celui du 664. 149 F. 

Amstrad, premiers 
programmes. Sybex (240 p.) 
Avec ce livre, les débutants 
réaliseront rapidement leurs 
premiers programmes en Basic. 

98 F. 


L’Amstrad exploré. Sybex 

(180 p.) 

Un livre pour progresser en Basic 
Amstrad et exploiter les capacités 
d’une des meilleures machines du 
moment. Une partie du livre est 
également consacrée à l’utilisation 
et la programmation en 
assembleur. 98 F. 


Le tour de l’Amstrad. 

Cedic/Nathan (170 p.) 

Si vous voulez découvrir les 
possibilités graphiques et sonores 
de votre CPC 464 ou 664, ce livre 
vous entraîne dans cette aventure. 
Vous ferez également 
connaissance avec le langage 
machine et l’utilisation des 
interruptions. 80F. 


102 programmes pour Amstrad. 

PSI (240 p.) 

Des programmes de jeux pour 
comprendre le Basic 
progressivement. Chaque niveau 
vous fait découvrir de nouvelles 
instructions et leurs effets. 120 F. 
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EDITORIAL 


Nuits Blanches 


Voici le numéro deux des "Cahiers d'Amstrad 
Masazine", un spécial Iistin3s. Tous les pro¬ 
grammes que vous y trouverez sont originaux. 
Ils n'ont jamais été publiés dans Amstrad 
Magazine. Programmes de jeux, éducatifs, utili¬ 
taires, sont à votre disposition. Ils n'attendent 
que votre bonne volonté pour "tourner". 

Nous les avons choisis pour vous divertir. 

Pour ce second numéro consacré aux listings, 
nous avons sélectionné des programmes en 
langage Basic, du plus simple au plus compli¬ 
qué. Ils permettront aussi bien au program¬ 
meur débutant qu'au confirmé de trouver des 
exemples d’applications ou des astuces de 
programmation. A vous de “ décortiquer" ces 
programmes et d’en retirer les richesses. Nous 
vous donnons rendez-vous pour notre pro¬ 
chain Cahier, consacré aux utilitaires et 
bidouilles de programmation. A vos daviers et 
bonnes nuits blanches... 

La rédaction 


Directeur de la publication : Jean Kaminsky. 
Rédaction : Jean-Michel Maman, Michel Merlet, 
Philippe Lamigeon, Frédéric Nardeau (listings). 

Ont collaboré à la rédaction : Guillaume Lamothe, Char¬ 
les Jacquet, William Kiésele, François Nord, Gérard Casa¬ 
nova, Serge Perrin, Noël Garden, Laurent Guinaudeau, 
Joël Vernet, Yann Venance, Lionel Barrand, Philippe 
Dalibard, Albertos Barros. Secrétaire générale de rédac¬ 
tion : Françoise Kergreis. Secrétaire de rédaction : 
Mireille Massonnet. Maquette : Jean-Jacques Galmiche. 
Régie publicitaire : Néo Média, 55, av. Jean-Jaurès, 75019 
Paris. Tél. : 42.41.81.81. Chef de publicité : Jean Yves 
Primas. Assistante de publicité : Geneviève Grillet. Secré¬ 
taire et abonnements : Sabine Planque. Commission 
paritaire : en cours. Dépôt légal : l el trimestre 1986. 
Photocomposition : Compo Imprim, 45.47.37.39. 
Imprimé par : RBI. Edité par : Laser Magazine, 55, av. 
Jean-Jaurès, 75019 Paris. 

Les cahiers d’Amstrad Magazine sont une publication 
strictement indépendante et n’ont aucun lien vis-à-vis de 
la société Amstrad. 


N'USEZ PAS VOS POIGTSI 

Retrouvez tous les listings de ce numéro 
sur une disquette. Prix :110 F (port com¬ 
pris). (En raison de la longueur des lis¬ 
tings, nous n’avons pas réalisé de 
cassette). 


BON de COMMANDE 

Disquette "Spécial Listings" 

Offre limitée 


Je commande.disquette(s) au prix de : 

110F pièce. Chèque à adresser à: Amstrad 
Magazine - 55, avenue Jean Jaurès, 75019 Paris. 

Nom :. Prénom :. 

Adresse : . 































Le Basic 


Premier langage disponible sur tous les micro¬ 
ordinateurs domestiques, le Basic est avant 
tout destiné aux programmeurs amateurs. Des 
instructions directement compréhensibles, peu 


d'obligations de mise en forme, et une logique 
interne simplifiée, rapidement accessible au 
commun des mortels... Hélas, tous ces avanta¬ 
ges ont aussi leur revers. 


Plus que tout autre, le Basic 
mérite vraiment l’appellation de 
“langage”. L’utilisateur dispose 
des mots de la langue courante 
pour donner ses ordres à l’ordi¬ 
nateur : PRINT, LIST, 
IF...THEN. D’accord, c’est de 
l'Anglais, mais la compréhen¬ 
sion est quasiment directe ! Ce 
n’est pas exactement le cas de 
l’assembleur (LDA, ADD, 
ADC, OUTI, etc.). Les instruc¬ 
tions sont disposées par lignes 
librement numérotées : la 
ligne 10 s’exécute avant la 
ligne 20, et ainsi de suite. Un 
programme Basic se relit donc 
facilement. Il se corrige aussi 
facilement : une ligne de trop, il 
suffit de l’effacer, une ligne qui 
manque, il suffit de la rajouter 
avec un numéro approprié, et le 
programme l’intègre automati¬ 
quement en bonne place. 

Les erreurs de programmation 
vous sont signalées : ligne de 
l'erreur, type de l’erreur. Idéal 
pour les débutants. 


Bref, le Basic assiste et favorise 
l’utilisateur en se conformant au 
maximum à ses habitudes de lan¬ 
gage. Le sacrifié dans l'affaire, 
c’est l’ordinateur : lui, normale¬ 
ment, ne comprend que des sui¬ 
tes interminables de “0” et de 
“1”. Le programme qui gère le 
Basic sert donc d’interprète entre 
l’utilisateur et le micro. Voilà 
pourquoi on parle de “l’inter¬ 
préteur Basic”. 

Evidémment, cette traduction 
prend du temps : le Basic est 
donc un langage relativement 
lent, puisque l'interprétation de 
chaque instruction ralentit le tra¬ 
vail du micro-processeur. C’est 
le premier gros inconvénient de 
ce langage, qui interdit de l'uti¬ 
liser pour des programmes natu¬ 
rellement rapides (jeux d’arca¬ 
des...) ou chargés de traiter une 
masse importante de données 
(fichiers...). 

En fait, chaque instruction Basic 
est un “lot”, qui recouvre une 
multitude de processus : l’équi¬ 


valent de 10 à 100 ordres en 
assembleur ! Le travail du pro¬ 
grammeur est donc mâché, sim¬ 
plifié : inutile d’entrer dans le 
détail du fonctionnement interne 
de la machine, le Basic fournit 
des ensembles “prêts-à- 
servir” !... 

Dès lors, pas besoin d’être un as 
de l’électronique pour program¬ 
mer : un peu de logique suffit, 
et une connaissance parfaite de 
la syntaxe et des effets de cha¬ 
que instruction. Ce qui implique 
une lecture attentive du manuel 
que l’on a trop souvent tendance 
à sauter. La punition ne larde 
pas, sous la forme d’une multi¬ 
tude de messages d’erreur... Le 
Basic est donc avant tout destiné 
aux applications domestiques. 
Un petit mois d’initiation suffit 
pour composer soi-même un 
programme simple de gestion du 
budget, de calcul d’intérêts... 
Vous disposez aussi d'un large 
éventail d’instructions graphi¬ 
ques pour effectuer rapidement 


des affichages clairs et lisibles : 
placement libre du texte sur 
l’écran, couleurs, fenêtres, tra¬ 
cés géométriques, etc. 

Il n’y a donc pas de meilleure 
approche pour un premier con¬ 
tact avec l'ordinateur. Le Basic 
vous ouvre d’immenses domai¬ 
nes d’application sans autre bar¬ 
rière qu’un peu d’attention et de 
logique. Et c’est aussi une excel¬ 
lente plate-forme pour partir 
ensuite à la découverte d’autres 
langages (Pascal, Forth, C), plus 
performants, plus rigoureux, 
mais vraiment inacessibles au 
débutant !... 

Enfin, malgré nos restrictions 
quant à la lenteur du Basic, 
rassurez-vous : l’interpréteur 
Basic Amstrad est actuellement 
le plus rapide sur le marché de 
la micro domestique. Et de 
loin ! 

Jean-Michel Maman 



Les autres langages 


La programmation demande l’apprentissage 
d’un langage particulier reconnaissable par la 
machine. La plupart des utilisateurs de micro¬ 
ordinateurs programment dans le langage le 
plus courant : le Basic. Il est, en effet, dispo¬ 
nible sur la quasi-totalité des micros du mar¬ 
ché, facilitant ainsi le passage d’une machine 
à une autre. Or, il existe beaucoup d’autres lan¬ 
gages. Amstrad offre par exemple, avec l'unité 


disquette connectable sur CPC 464, et dès 
l’achat pour les 664 et 6128, le langage Logo. 

Les éditeurs indépendants ont adaptés pour les 
CPC : Cobol, C, Forth, Pascal, Ceci, sans oublier 
le vénérable, mais indétrônable. Assembleur. 
Sans chercher à vous “forcer la main”, un 
regard rapide sur ces langages vous donnera, 
peut-être, l’envie de les découvrir. 



La langue 
universelle 

Si l’on veut prendre un exemple, 
la Bible nous rapporte la cons¬ 
truction de la tour de Babel. 
C’est pendant l’édification de 


cette tour, que la langue unique 
est devenue langue multiple. 
Ainsi, chaque peuple possédait 
désormais son propre langage, 
facilitant la reconnaissance des 
membres d’une même nation. 
Mais ceci ne se fit pas sans poser 
quelques problèmes. Il devenait 
indispensable d’apprendre une 
autre langue pour voyager dans 


un pays étranger. Notre siècle, 
plus particulièrement depuis les 
années cinquante, désigna l’an¬ 
glais comme langue universelle. 
Elle est actuellement la plus uti¬ 
lisée dans le monde des affaires. 
Le Français et l’Espagnol ayant 
eu chacune également leur “Age 
d’or”. 

Dans le domaine de l’informa¬ 


tique, l’enseignement devait lui 
aussi posséder une langue unique 
pour l’apprentissage des systè¬ 
mes. En 1965, apparut le Basic, 
mis au point par une équipe de 
scientifiques américains. A l’ori¬ 
gine, ce langage d’enseignement 
n’était pas implanté sur les 
machines. M^is le nombre élevé 
d'étudiants formés au Basic, 
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MICRO ORDINATEURS - LOGICIELS - PROGICIELS 


AMSTRADESK 

Bureau pour ordinateur personnel 


Structure rigide en tube acier 
de section rectangulaire. 

Large espace disponible 
pour les cables de liaison. 

Espaces de rangement pour 
cassettes, disquettes et 
papier. 

Equipé de 4 roulettes per¬ 
mettant un déplacement 


• Belle finition d'ensemble. 
Structure acier peinte cou¬ 
leur brun. Panneaux de par¬ 
ticules plaqués teck. 

• Livré en Kit (grande facilité 
de montage). 

• Dimensions : 

Hauteur : 889 mm. 
Longueur : 933 mm. 
Profondeur: 610 mm. 



940 F T.T.C. en Importation Exclusive 
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PI 8256 

Poste informatique 

990 F T.T.C. 

REVENDEURS, nous consulter 


Structure rigide en tube acier de section 
rectangulaire. 

Large espace disponible pour les câbles de liaison. 
Espace conçu pour l’imprimante. 

Equipé de 4 roulettes permettant un déplacement 
aisé. 

Belle finition d’ensemble. Structure acier peinte 
couleur gris. Dessus bois stratifié gris. 

Livré en Kit (grande facilité de montage). 
Dimensions : 

Hauteur : 680 mm 
Longueur : 1 000 mm 
Profondeur : 700 mm 
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favorisa son adaptation sur ordi¬ 
nateur. On crut alors posséder 
une nouvelle fois la langue uni¬ 
que, qui serait utilisée par tous 
les informaticiens du monde. 
C’était une belle erreur, car 
d’autres langages existaient 
avant l’apparition du Basic, et 
d’autres furent développés 
après. 

L’assembleur 

Pour programmer un ordina¬ 
teur, on peut utiliser le langage 
machine (programmation en 
binaire) ou un langage évolué 
(Basic par exemple). Les pre¬ 
miers programmeurs ne dispo¬ 
saient, pour réaliser leurs appli¬ 
cations, que du code machine, 
ou “Langage Machine”. La 
feuille de programme n’était 
rédigée qu’en suite de 0 ou de 1. 
La programmation se faisait Bit 
par Bit. Pour faciliter ce travail 
fastidieux, les programmeurs 
mirent au point, au début des 
années cinquante, une nouvelle 
forme de notation qui devait, 
par la suite, donner naissance 
aux langages évolués. Au lieu 
d’écrire des suites de 01001001 
11001011, on écrivait ADD 2,16. 
On assemblait, sous forme de 
groupes de lettres ou de chiffres 
et d’adresses, les valeurs binai¬ 
res. Mais on devait toujours ren¬ 
trer les codes manuellement à 
l’aide de tableaux de correspon¬ 
dance. Malgré tout, le travail du 
programmeur était déjà simpli¬ 
fié. La mise au point de logiciels 
permettant une traduction di¬ 
recte de ce type de programma¬ 
tion, donna naissance aux 


Assembleurs. 

Sur Amstrad, on dispose de 
l’assembleur Z80. Il est très uti¬ 
lisé par les développeurs de logi¬ 
ciels, car il permet pratiquement 
toutes les “bidouilles” possibles. 
Il est dommage que beaucoup 
d’utilisateurs pensent que ce lan¬ 
gage n’est pas à leur portée, car 
il offre des avantages multiples. 
Il est vrai que son apprentissage 
n’est pas des plus facile. Les 
livres d’applications de l’assem¬ 
bleur Z80 déroutent l’utilisateur 
par l’emploi excessif de formu¬ 
les mathématiques bien inutiles. 
11 reste pourtant (ceci n’étant 
que mon avis personnel) le seul 
vrai langage de programmation, 
puisque lié à la structure même 
de la machine. 

Cobol et Pascal 

Le Common Business Oriented 
Language (Cobol) est apparu en 
1962. Principalement langage de 
gestion, il vient d’être adapté sur 
Amstrad sous le nom de “Ne¬ 
vada Cobol”. Proche dans ses 
instructions de celles utilisées en 
Basic, il permet de mettre en 
œuvre des programmes de ges¬ 
tion compliqués. Si sa structure 
est un peu ancienne, il reste l’un 
des langages les plus facilement 
utilisables par des program¬ 
meurs non scientifiques. On 
l’apprend comme le Basic, assez 
facilement, et la réalisation de 
programmes peut se faire rapi¬ 
dement. A l’origine, ce langage, 
contrairement à l’assembleur, 
fut développé pour être facile¬ 
ment adapté sur différentes 
machines et lu par des non- 


informaticiens. Ses principaux 
défauts restent une souplesse 
d’utilisation parfois réduite dans 
certaines applications et, à de 
rares exceptions, l’impossibilité 
totale de le dépanner. Ainsi, 
ayant réalisé un programme qui 
s’est planté, nous avons cherché 
l’erreur. Dix informaticiens con¬ 
naissant bien ce langage et plu¬ 
sieurs heures de travail se sont 
soldés par un échec. Le pro¬ 
gramme aurait dû tourner, mais 
il fallut le réécrire. La deuxième 
version tourna parfaitement et le 
mystère resta entier. 

Le Pascal est à l’origine un lan¬ 
gage pour l’apprentissage de la 
programmation .- Descendant de 
l’Algol, qui rappellera de bons 
souvenirs à ceux qui sont passés 
par les universités, il a lui aussi 
un enfant : Ada. Le Pascal, 
datant des années 70, est assez 
simple à apprendre par l’utilisa¬ 
teur mais trop compliqué pour 
être défini en quelques lignes. 11 
est d’origine française (pour une 
fois) et doit être l’un des langa¬ 
ges les plus puissants disponible 
sur CPC et PCW. Sa structure 
est de type “en bloc”, formant 
le programme principal, les pro¬ 
cédures et les fonctions avec la 
possibilité d’imbrication. 

Forth et Logo 

Le Forth est aussi un langage né 
dans les années 70. Pratique¬ 
ment, le Forth travaille en 
système de pile. Le premier élé¬ 
ment de la pile est le dernier que 
l’on pourra utiliser. Un pro¬ 
gramme écrit en Forth n’utilise 
que très peu de place mémoire. 


Un grand nombre de jeux d’ar¬ 
cades sont programmés avec ce 
langage. Par contre, sa syntaxe 
est parfois difficile à compren¬ 
dre, car un mot clé peut être 
défini avec un simple signe de 
ponctuation. 

Logo, quant à lui, est le plus 
simple des langages, du moins 
sur le papier. Il emploie des mots 
du langage courant, en utilisant 
deux types de phrases ; les décla¬ 
ratives et les instructions. Il est 
le langage le plus utilisé dans les 
écoles pour l’apprentissage de la 
programmation. 

Ses possibilités sont réduites au 
dessin de figures géométriques, 
car il n’est pas envisageable de 
réaliser des applications compli¬ 
quées avec le Logo. Tous les 
possesseurs d’une unité disquet¬ 
tes Amstrad possèdent ce lan¬ 
gage. 

Choisissez 

Bon nombre d'entre vous atten¬ 
daient certainement plus de cet 
article. Le but de ce dernier 
n’était pas de comparer les lan¬ 
gages entre eux, mais simple¬ 
ment de vous donner une idée de 
ceux disponibles pour vos CPC. 
Il aurait fallu utiliser la totalité 
de la place disponible dans ce 
numéro des Cahiers, pour com¬ 
parer ces langages entre eux. 
Chaque mois, dans Amstrad 
Magazine, vous trouverez des 
cours sur l'un de ces langages. Ils 
vous permettront d’en connaître 
la structure, l’utilisation et les 
limites. Ensuite, à vous de choi¬ 
sir. 

M. Merlet 


VIDEO CLUB BOBIGNY 2 

Centre commercial BOBIGNY 2. 93000 BOBIGNY 
du lundi au samedi de 9 h 30 à 20 h 
Tél. : 48.31.69.33 

LE SPECIALISTE AMSTRAD 


SUCCES FOU... PLUS DE 3 500 CASSETTES VENDUES 

Cours d'auto formation ; BASIC Cassette. 

BASIC Disquette/CPM. 

Simulateur de voile DAM5TAR Cassette. 

( + de 500 ventes on une semaine) Disquette ... . 


. 115 F 

..... 215 F 

125 F 
. 185 F 

DES PROBLEMES ? AUCUN... 


Disquette3” Maxell. Les 10 . 490 F 

Tables Amstrad.. 995 F 

Accès direct UDOS (disquette)........ 380 F 

Comptabilité générale. . 1640 F 

Facturation/Stock/Entreprise/ 
Journal des ventes (disquette) .... 

Facturation caisse détail. 

-*-400 logiciels disponibles 

... 1300 F 
... 1320 F 
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logiciels 

AMSTRAD 

(cassette ou disquette) 

Eh oui ! Il y a maintenant 40 titres 
COBRA SOFT pour Amstrad 464, 664 et 
6128. Il s'agit de. la plus Importan¬ 
te. collection de. logiciels ^ranç.ai*. 

Jeux, éducatifs, utilitaires, gestion 
■il y en a pour tous les goûts... 
Demandez notre nouveau catalogue en 
écrivant à : COBRA SOFT 
B.P. 155 

71104 CHALON/SAONE CEDEX 
(joindre 2 timbre* à 2.20 1rs pour les 
firal* d’envol). 

Programmeurs, contactez-no us ! ! ! 








... 464 ... 664 ... 6128...8256 .. 


DU GRAND FRÈRE... 
...AU DERNIER NÉ 

Toute la famille AMSTRAD est présente 


EUROMARCHÉ NANCY 

C.C. St Sébastien 
54000 NANCY 
Tél. 83.35.08.23 


EUROMARCHÉ 

CENTRE COMMERCIAL ROSNY 2 

93110 ROSNY 
Tél. : 45.28.92.50 


Elle vous attend accompagnée d’imprimantes, de tous les périphériques, 
logiciels sur disquettes, logiciels 3”, logiciels sur cassettes, librairie... 
et vous assure un véritable S.A.I/. 



6 fois par an, le Guide de votre Amstrad 
Chaque édition constitue un véritable 
numéro spécial, consacré entièrement 
à un thème précis : 


010 ** 

ISM '. v_ 1 LJ.Ml 




o m 


OFFRE DE LANCEMENT : 


Europe : 150 F Airmail : 190 F 


120fi.es 6 NUMEROS 


AU LIEU DE 149 F 


gfe... 

Pour recevoir régulièrement 
les cahiers d’Amstrad Magazine 
abonnez-vous immédiatement 


Bulletin à découper et à retourner à Amstrad Magazine, 55, avenue Jean-Jaurès, 75019 Paris 
accompagné de votre règlement. 

Je m’abonne aux Cahiers d’Amstrad Magazine 

Nom.....Prénom . 

Adresse..... 

Code postal .„. Ville 
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20 ' *** *** 

30 ’ »« D.A.O. «* 

40 ' tt* *#* 

50 ’ 

60 ’ »♦* écrit et réalisé par tu 

70 ’ *** lionel BARRAND m 

90 ' ♦« 20 FONCTIONS DE DESSIN! 1 «Ht 

110 ’ 

120 ON BREAK GOSUÎ 5660 
130 ON ERROR GOTO 5660 
140 ' 

150 ’ «Ht DONNEES D.A.O. «♦ 

160 1 «tt*«HHHHHHt«HHH*M«t 

170 CLSÜIODE 2 
180 DATA 338,268 

190 DATA 374,268,380,274,380,330,374,328,338,338,338,270,999,999 
200 READ xa,ya:PL0T xa,ya 
210 READ x,y 

220 IF x=999 AND y=999 THEN 250 
230 DRAW x,y 
240 GOTO 210 
250 DATA 376,268 

260 DATA 386,274,386,336,382,342,346,342,338,330,999,999 
270 READ xa,ya:PLOT xa,ya 
280 READ x,y 

290 1F >.=999 AND y=999 THEN 320 
300 DRAM a, y 
310 GOTO 280 
320 DATA 346,280 

330 DATA 362,280,368,284,368,324,364,328,346,328,346,280,999,999 
340 READ xa,ya:PLOT xa,ya 
350 READ x,y 

360 IF x=999 AND y=999 THEN 390 
370 DRAW x,y 
380 GOTO 350 
390 DATA 354,328 

400 DATA 354,284,366,284,999,999 
410 READ xa,ya:PLOT xa,ya 
420 READ x,y 

430 IF x=999 AND y=999 THEN 460 

440 DRAW x,y 

450 GOTO 420 

460 DATA 346,280 

470 DATA 354,284,999,999 

480 READ xa,ya:PLOT xa,ya 

490 READ x,y 

500 IF x=999 AND y=999 THEN 530 
510 DRAW x,y 


Ce programme est un utilitaire Validez deux points avec “Z”, 
de dessin assisté par ordinateur, tapez “P" pour le faire 
Le choix des couleurs est res- apparaître, 
treint mais l’ordinateur travaille • U : trace une ellipse pleine : 
en haute résolution. Après une validez les deux extrémités de la 
page de présentation, vous aurez base avec “Z” et tapez deux fois 
accès à deux possibilités : “U”. 

M = accès au menu ou • Y : trace une ellipse (con- 
E = accès à l’écran graphique, tour) ; définir les bornes de 
Différentes possibilités de dessin l’angle (a = °). 
vous sont offertes : • A : donne la côte x et y de 

• D : trace une droite. deux points : validez deux points 

• R : trace un rectangle plein en avec "Z”. Tapez “A”, 
validant le point de départ avec • Q : permet de régler la vitesse 
“Z” puis en déplaçant le curseur de déplacement du curseur. (1 à 
à l’extrémité de la diagonale (du 9). 

rectangle à tracer) et en tapant * E : cette option permet- de 
“R” pour valider le dessin de la mixer du texte à l’écran 
figure. graphique, 

• F : trace le contour d’un rec- • S : fait passer le programme 
tangle. Validez les deux extrémi- en mode “crayon”. Pour dessi- 
tés de la diagonale avec “Z” et ner appuyer simultanément sur 
tapez “F" pour le tracer. “S” et les flèches de curseur. 

• C : cercle plein. Validez le cen- • @ : annule la dernière droite 

tre avec- Z et tapez “C” pour tracée. 

lancer le dessin. * N : nettoie l’écran. 

• V : trace le contour du cercle. • G : gomme de figure : tapez G 
Vous devrez définir les bornes de puis 2 -» choix couleur 1 ou 2. 
l’angle et le nombre de points. Validez un point avec “Z”. Pla- 

• T : trace un triangle plein, cez le curseur à l’extrémité de la 

Validez les deux premiers som- diagonale. Tapez “R”, puis 1 
mets en tapant “Z” et en dépla- pour visualiser le curseur, 
çant à chaque fois le curseur, • J : trace un polygone. Validez 
puis tapez “T” pour tracer le deux points avec “Z” et tapez 
triangle. “J”, 

• B : trace un triangle (contour). » h ; sauvegarde ou recharge un 

Même méthode. dessin. 

• P : trace un parallélogramme. Lionel Barrand 
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1 520 GOTO «90 
A | 530 DATA 372,330 
W . 540 DATA 380,342,999,99? 

I 550 READ xa,ya!PLOT xa,ya 
| 560 READ x,y 

1 570 IF <=999 AND y=999 THEN 600 

# 1 580 DRAW x,y 
, 590 GOTO 560 

I 600 DATA 374,338 
I 610 DATA 382,342,999,999 
620 READ xa,ya:PLOT xa,ya 
A I 630 READ x,y 

w . 640 IF >=999 AND y=999 THEN 670 
l 650 DRAW x,y 
i 660 GOTO 630 
1 670 DATA 380,276 
A I 680 DATA 386,280,999,999 
690 READ xa,ya!PLQT- xa,ya 
I 700 READ x,y 

, 710 1F x=999 AND y=999 THEN 740 
1 720 DRAW x,y 

# | 730 GOTO 700 

W 740 DATA 380,330 

| 750 DATA 386,336,999,999 

I 760 READ xa,ya:PLOT xa,ya 
I 770 READ x,y 

A I 780 IF x=999 AND y=999 THEN 810 
w 790 DRAW x,y 

I 800 GOTO 770 

, 810 DATA 412,270 

1 820 DATA 422,270,432,276,432,302,440,302,440,270,452,270, 

0 J 458,274,458,332,450,342,426,342,418,336,410,326,410,270,999,999 
. 830 READ xa,ya:PLOT xa,ya 
I 840 READ x,y 

| 850 IF >.=999 AND y=999 THEN 880 
1 860 DRAW x,y 

# | 870 GOTO 840 

, 880 DATA 452,272 

I 890 DATA 452,330i444,336,418,336,999,999 
| 900 READ xa,ya:PLOT xa,ya 
1 910 READ x,y 





LiûUL 




2190 BATA 314,124 

2200 DATA 320,124,322,122,322,118,326,112,354,112,394,124,406,132,418,144,434,148,444,143,462,146,496,136,514,136,526,140,532,144,53 
2,150,538,148,546,150,546,146,550,144,556,138,560,134,556,130,556,126 

2210 DATA 552,120,548,120,540,122,524,110,514,100,496-96,494,88,494,78,478,70,480,88,496,44,498,62,496.5B,480,58,466,68,462,68,448,8 
0,444,80,442,82,428,84,428,90,436,92,430,9B,420,100,404,110,404,118,384,108,358,102,320,102,312,112,312,120,314,124,999,999 
2220 READ xa,ga:PLOT xa,ya 
2230 READ *,g 

2240 IF *=999 AND y=999 THEN GOTO 2270 
2250 DRAU x,g 
2260 GOTO 2230 
2270 DATA 404,114 

2280 DATA 438,103,444,88,450,84,462,86,466,78,470,76,480,82,486,82,488,86,482,94,464.94,460,96,466,120,460,126,452,126,999,999 


2290 READ za,ta:PLOT za,ta 
2300 READ z,t 

2310 IF z=999 AND t=999 THEN GOTO 2340 

2320 DRAW z,t 

2330 GOTO 2300 

2340 DATA 504,112 

2350 DATA 496,104,496,96,999,999 

2360 READ ua,va:PLOT ua,va 

2370 READ u,v 

2380 IF u=999 AND v=999 TICN GOTO 2410 
2390 DRAW u,v 
2400 GOTO 2370 
2410 DATA 474,110 

2420 DATA 478,110,482,104,482,94,999,999 
2430 READ aa,ba:PLÙT aa,ba 
2440 READ a,b 

2450 IF a=999 ANC b=999 THEN GOTO 2480 
2460 DRAW a,b 
2470 GOTO 2440 
2480 DATA 478,82 

2490 DATA 474,86,466,88,462,86,999,999 
2500 READ ca,da:PLOT ca,da 
2510 READ c,d 

2520 1F c=999 AND d=?99 THEN GOTO 2550 
2530 DRAW c,d 
2540 GOTO 2510 
2550 DATA 478,70 
2560 DATA 468,72,468,76,999,999 



2570 READ ea, fa: PLOT ea.fa 
2580 READ e,f 

2590 IF e=999 AND f=999 THEN GOTO 2620 

2600 DRAW e,f 

2610 GOTO 2580 

2620 DATA 442,82 

2630 DATA 436,92,999,999 

2640 READ ga,ha:PLOT g â ,ha 

2650 READ g,h 

2660 1F g=999 AND h =999 THEN 2690 
2670 DRAW g,h 
2680 GOTO 2650 
2690 DATA 553,140 

2700 DATA 547,140,554,134,548,130,546,132,550,132,999,999 
2710 READ la,ma:PLOT la,ma 
2720 READ 1,» 

2730 IF 1=999 AND m=999 THEN 2760 
2740 DRAW 1,» 

2750 GOTO 2720 
2760 DATA 546,146 
2770 DATA 543,143,999,999 
2780 READ xa,ya:PLOT xa,ya 
2790 READ x,y 

2800 IF x=999 AND g=999 THEN 2840 
2810 DRAW x,g 
2820 GOTO 2790 
2830 at=lNKEY$ 

2840 LOCATE 50,1:PRINT 20 fonctions de dessin -* 


2850 FOR i=l TO tOOOïNEXT i:LOCATE 4,22:PRINT 'M acres au menu'.’LOCATE 4,23:PRINT 'E accès a l’écran graphique' 

2860 PLOT 7,57:DRAW 2,57,1:DRAW 2,41,1:DRAW 7,41,1 
2870 PLOT 264,39:DRAW 269,39, l.'DRAW 269,57, UORAW 168,57,1 
2880 GOSUB 4860 

2890 a*=UPPER*<INKEŸS1 : IF a*=" 0R(a$O'E* AND âtO'M'ITHEN 2890 

2900 IF a*='E* THEN 3290 

2910 ’ »*«♦*»*»*»«* 

2920 ' *** fl E N U 

2930 ’ ***■**»♦«»#*»♦» 

2940 CLSÜWDE 2:L0CATE 36,2:PRINT 'MENU *:LOCATE 34,3:PRINT '_':LOCATE 5,6:PRINT 'VOUS POUVEZ DESSINER AVEC:':LOCATE 5,7 

: PEINT '-' :LOCATE 10,9:PRINT '* D: TRACE UNE DROITE' 

2950 LOCATE 10,UîPRINT '* R: TRACE UN RECTANGLE PLEIN*:LOCATE 18,12:PRINT ■- validez 1 point avec Z':LOCATE 18,13:PRINT '- placez 1 
e curseur a l'extremite de la diagonale':LOCATE 18,I4:PRINT'- tapez R' 

2960 LOCATE 10,16:PRINT '» F: TRACE UN RECTANGLE':LOCATE 18,17:PR!NT validez les 2 extrémités de la diagonale avec Z'îLOCATE 18,1 
8:FR1NT '- tapez F':LOCATE 10,20:PRINT '* C: TRACE UN CERCLE PLEIN":LOCATE 1B,21:PRINT '- validez le centre avec Z' 

2970 LOCATE 18,22:PRINT ■- tapez C' 

2980 LOCATE 55,22:PRINT 'APPUYEZ SUR UNE TOUCHE' 

2990 LOCATE 55,23:PRINT ■-*:LOCATE 76,2:PRINT '1/4* 

3000 a*=lNKEYt: IF a*=" THEN 3000 

3010 as: MODE 2:L0CATE 36,2:PRINT 'MENU (suite)':LOCATE 34,3:PRINT '_" : LOCATE 1Q,6:PRINT '* V: TRACE UN CERCLE* :LOCATE 

18,7:PRINT '- définir les bornes de l’angle':LOCATE 10,9:PRINT 't T: TRACE UN TRIANGLE PLEIN' 

3020 LOCATE 18,1Q:PRINT '- validez 2 points avec Z':LOCATE 18,11:PRINT tapez T' 

3030 LOCATE 10,13:PRINT '* B: TRACE UN TRIANGLE':LOCATE 18,14:PRINT '- tape: B".LOCATE 10,16:PRINT '* P: TRACE UN PARALLELOGRAMME': 
LOCATE 18,17:PRINT '- validez 2 points avec Z':LOCATE 18,!8:PRINT '- tapez P' 

3040 LOCATE 55,22:PR1NT 'APPUYEZ SUR UNE TOUCHE'«LOCATE 55,23:PRINT '-' 

3050 LOCATE 76,2:PRINT '2/4' 

3060 PLOT 20,13,1 

3070 DRAW 400,13, UDRAW 400,35,1:DRAW 20,35, ÜDRAW 20,13,1 

3080 LOCATE 5,24:PRINT 'pour revenir a la première page tape 2 [enter]* 

3Q90 a»=iNKEY*:lF a»=" THEN 3090 
3100 IF INHEYil8)=0 THEN 2940 

3110 CLS:MODE 2:L0CATE 3è,2:PRINT 'MENU (suite) ':LOCATE 34,3:PRINT '_': LOCATE ÎD,6:PRINT '* U : TRACE UNE ELLIPSE PLEINE 

':LOCATE 18,7:PRINT '- validez les 2 Extrémités de la base avec Z':LOCATE 18,8:PRINT '- tapez 2 fois U'îLOCATE 10,10 
3120 PRINT '* Y: TRACE UNE ELLIPSE*:LOCATE 18,11:PRINT '- définir les bornes de l’angle':LOCATE 10,13:PRINT '« A: DOWE LA COTE EN X 
ET Y DE 2 POINTS'ILOCATE 18,14:PRINT '- validez 2 points avec Z':LOCATE 18,15:PRINT '- tapez A’:LOCATE 10,17 
3130 PRINT '* Q: VITESSE DE DEPLACEMENT DU CURSEUR':LOCATE 18,1B:PR1NT •- choisir un incrément de 1 a 9’:L0CATE 10,2Q:PRINT '* E: EC 
RIT UN TEXTE OU UN CARACTERE GRAPHIQUE' :LOCATE 10,22-'PRINT *« 5: MODE CRAYON** 

3140 LOCATE 55,22:PRINT 'APPUYEZ SUR UNE TOUCHE':LOCATE 55,23:PR1NT '-' 

3150 LOCATE 76,2:PRINT '3/4' 

3160 PLOT 20,13,1:DRAM 400,13,1:DRAW 400,35,1:DRAW 20,35,1:DRAW 20,13,1 
3170 LOCATE 5,24:PRINT 'pour revenir a 1a première page tapez [enter)’ 

3180 a*=INKEY»:IF at=" THEN 3180 
3190 IF IW\EY(!8)=Q THEN 2940 

3200 CLSiMODE 2:L0CATE 36,2:PR1NT 'MENU (suite)’:LOCATE 34,3:PRINT '_*:LOCATE 10,6:PRINT '* 3: ANNULE LA DERNIERE DROIT 

E'iLOCATE 10,8:PRINT '* N: NETTOYAGE DE L’ECRAN*:LOCATE 10,10:PRINT '* 6: GOMME UNE FIGURE*:L0CATE 18,11 

3210 PRINT '- taFez G puis 2*:LOCATE 18,12:PRINT '- couleur 1-2':L0CATE 18,13:PR1NT validez un point avec Z'iLOCATE 18,14:PRINT ' 
- placez le curseur a l’extremite de la diagonale':LOCATE 18,15:PRINT '- tapez R':L0CATE 18,16 

3220 PRINT '- tapez 1 pour visualiser le curseur':LOCATE 10,18:PRINT '* J: TRACE UN POLYGONE":L0CATî 18,19:PRINT *- validez 2 points 
avec Z':LOCATE 1B,20:PR1NT *- tapez J':LOCATE 10,22:PRINT '* H: SAUVEGARDE OU CHARGE UN DESSIN' 

3230 LOCATE 55,22:PRINT 'APPUYEZ SUR UNE TOUCHE':LOCATE 55,23:PRINT '-' 

3240-L0CATE 76,2:PRINT '4/4' 

3250 PLOT 20,13,1 ZDRAW 400,13,1:ÜRaU 400,35,1:DRAW 20,35,UDRAW 20,13,1 
3260 LOCATE 5,24:PR1NT 'pour revenir a la première page tapez tenter)' 






3270 a*=I!*Eï*sIF a*=" THEN 3270 


# , 3280 IF !NKEY( 181=0 THEN 2940 
I 3290 CLSîflODE 2tce=Ucf=OScv=6 

I 3300 P.Or 0,400:BRAW 0,0,I:PLCT Ü,399:DRAW 640,399,1:PLOT 63?,399:DRAW 629,365,1 
. 3310 PLOT 103,l8:DRAW 103,0,1 : PLOT 194,18:DftAU 194,0,U PLOT 402,I8:DRAW 402,0,1 
I 3320 UK 0,1‘-INK î,24:PAPEft cf:P9i ce:BORDER ce 

• I 3330 SPEED KEY 10,3 
' 3340 „a=200:ya=300 
j 3350 j b=xa:gb=ya: x~/..a+20: y-ya 
3360 ce=t:cf=û:cv=6 

I 3370 PLÛT 0,18.-DRAW 639,18, l:DRAW 639,0, ÜPLOT 101,18:DRAW 101,0,lsPLOT 192,18:DRA« 192,0,1:PLOT 400,18:DRAU 400,0, lsLOCATE 2,4:PRIN 

• I T CHR*<243>îLOCATE 1,5:PR1NT CHR*(241 >SLOCATE 1,4--PR1MT CHR*(150):LOCATE 4,4:PR1NT ‘x'sLÜCATE 1,6:PRINT V 

1 3380 PLOT 620,18:DRAW 620,365:DRAW 640,365:L0CATE 79,23:PRINT 'Z'SLOCATE 79,22:PRINT 'Y'sLOCATE 79,2l:PRI«T ‘V'sLOCATE 79,2Q:PR1NT ‘ 

I U'sLOCATE 79,19SPRINT "T’sLOCATE 79,18:PRINT 'S’sLOCATE 79,17JPR1MT 'R*:LOCATE 79,16:PRINT 'Q':LOCATE 79,15:PRINT "P* 

3390 LOCATE 79,14:PRINT ’N‘:LOCATE 79,13:PRINT ’J':LOCATE 79,12:PRINT 'H':LOCATE 79,li:PRINT 'G'SLOCATE 79,10:PRIMT 'FVLOCAYE 79,9: 
! PRINT *E':LOCATE 79,B:PR1NT *D*:LOCATE 79,7:FR1NT 'C'sLOCAlt 79,6:PRINT 'B 1 :LOCATE 79,5:PR1NT *A':LÜCATE 79,4:PRINT "8‘ 

# , 3400 SYMBOL AFTER 128 

1 3410 SYMBOL 128,0,34,20,127,20,34,0,0 
I 3420 SYMBOL 129,144,96,101,146,4,8,0,0 
' 3430 SYMBOL 130,1,3,5,9,17,33,127,0 

| 3440 SYMBOL 139,0,24,60,126,126,60,24,0 __ 

• I 3450 SYMBOL 132,3,0,0,127,0,0,0,0 
! 3460 SYMBOL 133,0,0,127,65,65,127,0,0 
| 3470 SYMBOL 134,24,36,66,129,129,66,36,24 

1 3480 SYMBOL 135,0,31,34,34,68,68,248,0 ^ - 

[ 3490 SYMBOL 136,0,0,127,127,127,127,0,0 

• 3500 SYMBOL 137,0,103,254,254,124,56,16,0 \ 

I 3510 SYMBOL 138,1,3,7,15,31,63,127,0 / T>- • J 

3520 SYMBOL 131,0,0,60,255,255,60,0,0 \/tSF' J I 

3530 SYMBOL 141,0,24,36,66,66,36,24,0 V/' % • • ' 

| 3540 SYMBOL 140,0,0,60,195,195,60,0,0 

_ , 3550 SYMBOL 142,0,0,0,24,24,0,0,0 

9 I 3560 SYMBOL 143,0,126,255,195,255,255,0,0 

i 3570 SYMBOL 144,0,60,126,90,126,66,60,0 

* 3580 LOCATE 80,4:PR1NT CHRI028) 

I 3590 LOCATE 80,5:PRINT CHR*(129) 

^ 3600 LOCATE 80,6:PRINT CHR*<130) 

9 i 3610 LOCATE 80,7:FRINT CHR*(131):LOCATE 80,8:PRINT CHR*(132):L0CATE 80,9:PRINT CHR*(144)SLOCATE 80,10:PR1NT CHRK133CL0CATE 80,13:P 
, RINT CHR*(134):L0CATE 8Q,15:PRINT CHR*(135):LOCATE 80,17:PRINT CHR*(136) 

I 3620 LOCATE 80,1S:PRINT CHR*i137):LOCATE S0,!9:PRINT CHR*(133):LOCATE 80,20:PRINT CHR*(139):LOCATE 80,2l:PRINT CHR*(140):LOCATE 80,2 
I 2:FRINT CHR*I14i):L0CATE BG,23:PRINT CHR*(142) 

3630 LOCATE 80,12:PRINT CHR*(143) 

9 I 3640 WINOOW #1,30,50,25,25:PAPER «l.OiPEN #1,1 

, 3650. CLS #1 

I 3660 ’ tWHIH IHIHH IIHHHH 

1 3670 ’ «« CURSEUR CLIGNOTANT W 

3680 ’ hw h i h ih wi i w h: hi 

9 I 3690 t=TEST(*,y) 

, 3700 c*=INKEY*:lF c*<>" THEN 3730 

• 3710 PLOT if,ce:PLOT x,y,cf 

| 3720 GOTO 3700 __ 

9 | 37™ c=ASC!rt! ‘ fiSSvà 

1 3760 ’ *** PROGRAMME PRINCIPAL *** fjl 

1 3770 1 

• 3780 1F c=242 THEN IF :<>2 THEN x*x-cv:60T0 3690 j/V. 

I 3790 IF c=243 THEN 1F xl638 THEN x=*+Cv:SOTÛ 3690 

, 3800 IF P240 THEN IF j<398 THEN y=y*cv:GOTO 3690 /\ 

i 3810 IF c=24! THEN IF y>2 THEN y=y-cv:GÛTO 3690 ■JS. 

; 3620 c*4)PPER*(c»>sLOCATE 2,25:PRINT ’ fonction : * :UOCATE 12,25:PRINT et 
1 3830 IF c*=*Z' THEN uOSUB 4410:PL0T x,y,cesGOSUB 4050=60SUB 4530:xb=xa: S b=ya!xa=xSya=y 

9 I 3840 1F C*=-H- THEN GOSUB 4410:G0SUB 5030 

, 3850 IF c*=*S' THEN GOSUB 4410:G0SUB 5310 

I 3860 IF ct=‘F‘ THEN GOSUB 4410:60SUB 5430 

I 3870 IF c*=‘B' THEN GOSUB 4410:60SUB 5490 

1 3880 1F c*='P* THEN GOSUB 4410:G0SUB 4450 

9 | 3890 IF c*='Q* THEN GOSUB 4*10:G0SUB 4510 

w , 3900 IF c*='E“ THEN 60SUB 4410:PL0T x,y,ce:60SUB 4630 

I 3910 IF ct=T THEN GOSUB 441D:S0SUB 4910 

i 3920 1F c*=*U“ THEN GOSUB 44!0:G0SUB 5180 

3930 1F c*=‘D‘ THEN GOSUB 441C:G0SUB 4550:PL0T \a,ya,ce:DRAW x,y,ce:xtï=xa:yb=ya:ya=y:xa=x 
9 | 3940 1F c*='J" THEN GOSUB -,410:G0SUB 5550 

w , 3950 IF c*='C' THEN GOSUB 4410:60SUî 4170 

I 3960 1F c*»*V* THEN 60SUB 4410:S03UB 4580:G0SUB 4400 

| 3970 IF ct= , R‘ THEN GOSUB 4410:50SUB 4l00:xa=x:ya=y 

3980 IF c*="T’ THEN GOSUB 4410:60SUB 426G:xb=xa:yb=garxa=x:ya=y 
A | 3990 1F c*=*8* THEN 60SUB 4410:G05UB 4540:PL0T xb,yb:DRAH ,a,ya,cf:x=xb:y=yb!xa=xb:ya=yb 

w i 4000 IF c*=‘A" THEN GOSUB 4410:60SUB 4060 

I 4010 IF ct='G" THEN GOSUB 4410:G0SUï 4560:ce=Ü 

1 4020 1F c*='N’ THEN GOSUB 441O:60SUB 457O.-S0T0 3290 

1 4030 IF E*/=*0' AND c*<='9' THEN ce=VAL(c*/ 

A I 4040 GOTO 3690 

w , 4050 LOCATE 14,25:PRINT x:LOCATE I9,25:PRINT y:RETURN 

1 4060 as «SPRINT #1,’cotation':xr=ABS((::b-*a)/2.851:LOCATE 52,25:PRINT ’x =':L0CATE 55,25:PRINT USING ’###.## mm”ixr: a r=ABS((ub- a a) 

I /2.81H.0CATE 67,25:PRINT 'y =':LOCATE 70,25:PRINT USING '###.## mm*!yr:RETURN 

• 4070 ’ 

I 4080 ’ *♦* RECTANGLE PLEIN M* 

I 4090 ' (HHNHWmHi#*»**********» 

I 4100 as #1 SPRINT #1,'rectangle plein*:FOR rl=ya TO y STEP SGN(y-ya) 

I *110 PLÛT xa,rl,ce.'DRAW x, rl.ee 
1 *120 I4EXT rl'.GOSUB 5260 
| <130 RETURN 

. -.1*0 ' *«*«»♦»», »**♦,*«»»» 

I 4150 ’ »» CERCLE PLEIN *« 

I 4160 ’ ««MHHHHHHHHHI*#»,* 






I 4170 CLS IlsPRINT #1,‘cercle plein*:r=5QR11xa-x)*2+(ua-y) A 2)scl=r*2 .—, 

1 4130 FOR xc=-r TO r m >7 

I 4190 sc=S0R(ct-<xc A 2>) f f 

4200 PLOT xa+xc,ya+yc,ce:DRAW xatxciaa-yc.ee \ ,/Js;/ -- w >= 

I 4210 NEXT «S50SUB 5260 V^=rf7p1 I ——-fl— 

■ 4220 RETURN f ^sMST A 

I 4230 ’ HiwtitmtttHttm J y.. it 

j 4240 ’ *« TRIANGLE PLEIN *♦* __J II 

! 4250 ' W 

| 4260 CLS IlsPRINT #1,'triangle plein'st^SQRUyb-yal^+lxb-xa)^) Oà/^Y' QIl 

I 4270 IF tl=0 THEN RETURN W'Vv'l B 

* 4280 tx=(xa-xb)/tlsty=(ya-yb)/tl '♦•Ja/ H 

I 4290 FOR t2=0 Tû tl STEP 0.5 U 

4300 txl=xbtt2*tx:ty]=yb+t2*ty Ut 

| 4310 PLOT, Xi y i ce!DRAW txlitylice \J 

, 4320 NEXT t2:G0SUB 5260 ' 

I 4330 RETURN 

j 4340 LOCATE 1,1 SPRINT 'sLOCATE 4,1 :PRIN” jIHR»(176)sLOCATE 5,IsINPUT •=■ ;» 

1 4350 LOCATE 1,2:PR1NT *a •sLOCATE 4,2:FRINT CHRt(176)iL0CATE 5,2sINPUT '='iq 
| 4360 RETURN 

. 4370 ’ HtiwnHHi 

I 4380 ’ *♦« CERCLE *« 

1 4400 SOSUB 4340:DEG:F0R i=» TO qsr^SQRUxa-xHWya-yl^'sPLOT xa+r*COS(i),ya+r»SIN(i>,ce:NEXT îsGOSUE 5260:RETURN 
( 4410 SOUND 1,75,lOsRETURN 
. 4420 ’ mHMHHKWMtm 

I 4430 ’ *M PARALLELOGRAMME »♦ 

■ 4440 1 wmmw HH mn w 


4450 CLS »1 SPRINT Il,"parailelogranse*:dy=yb-ya: dx=xb-xa : PLOT x,y,ce:DRAW xa,ya,ce:DRAW xb,yb,ce:DRAW xtdx,y+dy,ce!DRAW x,y,ce:60SU8 
5260:RETURN 


4460 RETURN 


4470 SOUND 1,113,5,7sS04JND 1,119,5,7îF0R i=190 T0 113 STEP -lOsSOUND l,i,2.7:NEXT isFOR i=10D TO 16 STEP -5:S0UND l,i,l,7:NEXT ÜFOR 
1=20 TO 40 STEP 4:SOUND 1,1,10,7SNEXT is RETURN 


4460 ’ 

4490 ’ *« VITE SS INCREMENT «« 

4500 ’ 

4510 CLS IlsPRINT 441,'•vitesse: 1...9 • 

4320 a=VAL (INHEYI)slF a',1 OR a>9 THEN 4510 ELSE cv*asRETURN 

4530 CLS #1 SPRINT 41,•validation’sRETURN 

4540 CLS 4!SPRINT 4 !,•annulation'sRETURN 

4550 CLS IlsPRINT 41,"droite":RETURN 

4560 CLS 41:PEINT 41, 'go»e*:RETURN 

4570 CLS IlsPRINT 41net toyage-’ : RETURN 

4580 CLS IlsPRINT 41,'cercle*:RETURN 

4590 FOR i=l TO 6X:NEXT isaS IlsPRINT *l,'(7)exte ou 'Clhr* ?• 

:a*=INKEV*:SETURN 

4600 ’ 

4610 ’ »** ECRITURE **» 

4620 ’ 

4630 as IlsSPEED KEY 10,3".PR1NT #l,'Ecriture':GOSUB 4590 

4640 at=UPPER»(INKEY$):IF a»=" THEN 4640 

4650 IF alO'T* AND alO'C’ THEN 4720 

4660 SOUND 1,119,lOsTAG 4QSIF al='T* GOTO 4700 

4670 CLS «ISINPUT 41,'code cbrls'lc* 

4680 C=VAL(C*)!IF c<0 OR c>255 THEN 4630 
4690 PRINT #0,CHR$(ciiîGOTO 4o30 
4700 CLS IlsïNPUT 41,'texte:'!t* 

4710 PRINT 40,ttj SGOTO 4630 
4720 TAGOFF «OsGOSUÏ 5260:RETURN 
4730 SOUND 1,239, IX,7SRETURN 

4740 SOUND 1,179,20,7-.S0UND 1,159,20,7:S0UND 1,150,20,7: RETURN 
t750 SOUND l,159,40,7sS0UND 1,179,40,7:RETURN 
4760 SOUND 1,239,40,7:S0UND 1,225,40,7:RETURN 
4770 SOUND 1,268,IX,73RETURN 

4780 SOUND 1,201,20,7:S0UND 1,179,20,7:SOUND 1,159,20,7:RETURN 
4790 SOUND 1,179,40,71S0UND 1,201,40,7SRETURN 
4800 SOUND 1,268,40,7:SOUND 1,239,40,7sRETURN 
4810 SOUND 1,301,100,7:RETÜRN 

4820 SOUND 1,225,20,7SSÔUND 1,201,20,7:S0UND 1,179,20,7:RETURN 

4830 SOUND 1,201,40,7SS0UND 1,225,40,7:RETURN 

4840 SOUND 1,239,40,7SSOUNO 1,301,40,7SS0UND 1,248,40,7:RETURN 

4850 SOUND 1,239,40,7:S0UND 1,225,40,7JS0UND 1,239,40,7:SOUND 1,239,40,7SS0UN5 

1,239,40,75SCUND 1,75,40,7sSOUM) 1,159,40,7:S0UND 1,1 79,40,7sRETURN 

4860 ENV 1,10,15,1 SENT 1,10,15,lsFOR i=200 TO 194 STEP -IsSOUND l,i,15,1,1,1,5s 

NEXT isRETURN 

4070 ' **m*m*»*««hhi 

4880 ’ »♦« ELLIPSE *** 

4890 ' 

*900 FOR i=l TO 20:a4=INKEY$:NEXT i:RETURN 
4910 as #2:PRINT #1, 'ellipse':a*=INKEY* 

4920 al=UFPERI!INKEY!>:IF af=" THEN 4920 

4930 IF alO'V THEN RETURN 

4940 PLOT xa,ya,cf:PLOT xb,yb,cf:PL0T x,y,ce 

4950 t=(x&+xa!72:s=(t-xh)::=y-ya 

4960 GOSUB 4340 

4970 FOR TO qSDEG 

4980 PLOT t+s*C0S<I),ya+ï«SIN(i)«NEXT ÜGOSUB 5260 
4990 RETURN 

5O0Q ' «*♦*****+***,*•*♦»♦+«<***«**»( 

5010 ’ *« CHARGEMENT - SAUVEGARDE «*♦ 

5020 ’ WHHmWW H H WW WHtW 

5030 CLS «I SPRINT #1,'Save or Load ?':60SUB 49X 
5040 at=UPP£R* i INNEY*):IF ai=" THEN 5040 
i 5050 IF a*0 *S‘ AND alO'L' THEN RETURN 


5060 GOSUB 4410:IF a*='L* THEN 5110 
5070 CLS «ÜPRINT «1,'REC-PLAY puis ENTERGOSUB 4900 
5060 IF INKEYI 16)00 THEN 5080 
5090 CLS IlsSPEED WRITE ÜSAVE "DESSIN',B,»CX0,MOX 
5100 RETURN 

5110 as 11 SPRINT 11,'PLAY puis ENTER'üSOSUB 4900 
5120 IF INKEYU8JO0 THEN 5120 
5130 CLS il:LOAD"DEMODAO 
5140 RETURN 
5150 ’ 

5160 ' **♦ ELLIPSE PLEINE »** 

5170 ’ 

5180 as «1:PRINT #1,'ellipse pleine':at=INNEYt 
5190 at=UPPER*(INKEYI):IF a *=" THEN GOTO 5190 
5200 IF alO'U' THEN RETURN 
5210 FOR W TO 360 :DEG 
5220 PLOT xa,ya,cf:PLOT xb,yB,cf:PLOT x,y,ce 
5230 q=(xb+xa)/2:iiF(q-xb):r=y-ya 
5240 DRAW q+u*COS(i),ya+r«SIN(i), ce 
5250 NEXT i:GOSUB 5260:RETURN 
5260 SOUND 1,119,lOsRETURN 
5270 ai=INKEYl:RETURN 
5280 ’ i iimimmi 

5290 ’ *»* CRAYON »** 

5300 ’ tw w Hww 

5310 as IlsPRINT ll,'crayon':GOSUB 5270 
5320 IF 1NKEY(B)=0 THEN x=x-l 
5330 1F INKEYI 11=0 THEN x=x+l 
5340 IF INKEY(0)=0 THEN y=g+t 
5350 1F INKEYC2)=0 THEN y=y-l 
5360 PLOT x,y,ce 

5370 IF INKEY(60)=—1 THEN GOTO 3710 
5380 GOTO 5310 
5390 RETURN 

5400 ' M**t*W»**WHHH» 

5410 ’ «* RECTANGLE «»* 

5420 ’ #t**»**q*»*iHi**»* 

5430 CLS #1 SPRINT 11,"rectangle" 

5440 PLOT xa,ya:DRAW xb,ya,ce:DRAU xb,yb,ce:DRAW xa,yb,ce:DRAW xa,ya,ce 
5450 RETURN 

5460 ’ *♦«**»#♦♦*«»*** 

5470 ’ «* TRIANGLE *« 

5480 ’ «*«»♦*»»*»♦♦* 

5490 CLS llkFRINT 11,'triangle* 

5500 PLOT xa,ya:DRAW xb,yb,ce:DRAW x,y,ce:DRAW xa,ya,ce 
5510 RETURN 

5520 ’ »*«»»*«**♦»♦* 

5530 ' *<♦ POLYGONE ♦»* 

5540 ' *»*»**tt«**t*t* 

5550 CLS IlsPRINT 11,'polygone' 

5560 FOR x-1 TO 600SNEXT xsCLS IIslNPUT 11,'neutre de cotes'ijx 

5570 r=xa-xb 

5580 PLOT :<a+r,ya 

5590 FOR j=l TO jx 

5600 i-j»PI*27Jx 

5610 a=xa+r*C0S(i) 

5620 z=ya+r»SIN(i) 

5630 DRAW a, 2 ,ce 
5640 NEXT j 
5650 RETURN 

5660 INK 0,1:INK 1,24:PAPER OsPEN 1!CLS:BORDER lsSPEED KEY 10,3:STOP 
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Ce programme est un utilitaire 
de gestion de budget familial. Il 
permet, outre l’analyse du bud¬ 
get familial, la gestion du 
compte courant et des calculs 
financiers. Budgest permet donc 
d’accéder à trois sous- 
programmes : 

1 - Sous-programme de gestion 
du compte courant : 

a) Saisie : cette option permet 
d’entrer les opérations effectuées 
(.dates, libellés, montants précé¬ 
dés du signe + ou - ). Les opé¬ 
rations saisies sont triées par 
dates sur un mois. Il est donc 
préférable de toujours rentrer ldi 
opérations sous la même forme. 
L’option saisie fait apparaître le 
solde après chaque opération. 

b) Solde : fait apparaître le seul 
solde des opérations. 

c) Suppression : permet, à 
réception de l’avis de débit ou 
crédit de la banque, de suppri¬ 
mer l’enregistrement correspon¬ 
dant, tout en sauvegardant le 
montant de l’opération suppri¬ 
mée dans une autre variable. 

d) Bilan : cette option fait appa¬ 
raître la balance des vingt der¬ 
nière opérations à partir du 
numéro de fiche indiqué. Le 
solde des opérations figure en 
bas de page. 

e) Graphiques : affiche la date, 
le montant des opérations ainsi 
qu’un histogramme à partir d’un 
mot clé (essence, médica¬ 
ment...). 

0 Edition complète : édite sur 
écran ou sur imprimante toutes 
les fiches. 

g) Modifications : option per¬ 
mettant de rectifier des erreurs 
de saisie. 


h) Chargement/sauvegarde : 
permet le rechargement ou la 
sauvegarde des données saisies 
dans lès sous-programmes de 
gestion du budget familial et 
compte courant. 


2 • Sous programme Gestion du 
budget familial : 

a) Saisie/modifieation : permet 
d’entrer recettes et dépenses 
dans quarante-huit postes diffé¬ 
rents à l’intérieur de huit gran¬ 
des catégories. 

b) Edition : passe en revue les 
principales catégories de votre 
budget et le détail par poste. 

c) Bilan : affiche les huit gran¬ 
des catégories sous forme de 
“camembert’’. 

d) Graphiques : permet d’obte¬ 
nir une représentation, sous 
forme d’histogramme, des pos¬ 
tes de chaque catégorie. 


lisation du sous-programme ges¬ 
tion de compte courant, il est 
nécessaire d’initialiser le solde de 
la façon suivante : 

Utiliser le programme “saisie” 
en introduisant en “MON¬ 
TANT” le solde de votre compte 
figurant à la fin de votre dernier 
relevé. 

Utiliser ensuite le sous- 
programme “Suppression” afin 


de sauvegarder ce montant dans 
une autre variable. 

Par la suite, il ne vous restera 
plus qu’à saisir toutes les opéra¬ 
tions effectuées et n’ayant pas 
fait l’objet d’un relevé. 

Ne pas oublier de charger le 
fichier, ni de le sauvegarder 
après toute modification ou 
saisie, 

Philippe Dalibard 


3 - Sous-programme de calcul 
financier : 

a) Mensualités : calcule les men¬ 
sualités de remboursement en 
fonction du capital emprunté, 
du taux d’intérêt et du nombre 
de mensualités. Etablit un 
tableau d’amortissement du 
prêt. 

b) Capitalisation : permet de 
calculer la somme obtenue au 
terme de “n” mois en déposant 
chaque mois une certaine somme 
à un certain taux d’intérêt 
(P.E.L...). 

c) Intérêts composés : cette 
option permet d’obtenir le capi¬ 
tal obtenu après une période 
donnée en tenant compte du 
taux d’intérêt annuel et de la 
durée du placement (en années). 
Conseils : lors de la première uti¬ 


I REM-BUDGEST Par Philippe DALIBARD 

10 MODE 2 

20 ON ERROR GOTO 3810 
30 en=50 
40 fi=8:ch=tl 

30 DIM a9(en),a!(en),d$(en),b!(en) 

60 DIH co*(fi,ch),co(fi,ch),q(fw 

70 ’-tenu principal 

eo as 

90 PRINT:PRINTîPRINT SPRINTî PRINT 

100 PRINT' ' MENU' 

110 PRINT ' -'SPRINT 

120 PRINT ' [ 1 ].Chargement' 

130 PRINT ‘ [ 2 1.....Gestion Compte Couran 

t* 

140 PRINT ' C 3 3...Gestion du Budget Fax 

iliai* 

150 PRINT ' C A 1.Calcul Financier* 

160 PRINT ' [ 5 1.Sauvegarde' 

170 LOCATE l,2A:[NPUT‘Cluel est votre choi.',' “îso 

180 ON so GOTO 2230,190,2620,3830,2410 

190 1 -menu 


-210 MINDOWKO.1,80.I.25^ 2 

220 (’RhfTtiO, Bfflif 135)}SFOR i=2 T0 79:PRINT»0, CHR»(131 >ï:NEXT:PRINT*0,CHM(139i 
iLOCATEKO,l|2A:PRINTI0,CHRi(lAl)jiFOR 1=2 T0 7?:PRINT#0,CHRt(140>;:NEXT:PRINT«0, 
CHR$(142) 

230 UINDOU SUAP 0,1 

240 PRINT:PRINT:PRIhlT:PRINT:PRINT 


250 PRINT' 

260 PRINT" 

270 PRINT' t 1 3.Menu principal' 

280 PRINT' [ 2 1.Saisie' * 

290 PRINT' [33.Bilan' 

300 PRINT' [ 4 1..........Modification' 

310 PRINT' [ 5 3.......Suppression' 

320 PRINT' [ 6 1.Solde' 

330 PRINT* f 7 ].Graphiques' 

340 PRINT' [ 8 1.Edition' 

350 PRINTîPRINT:INPUT'Q uel est votre choix : *iso 
360 ÜN so GOTO 70,370,1120,1960,910,740,1330,1700 
370 ■’-saisie 

380 as 


mmk 
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2100 NEXT e 
1 21X0 GOTO 2180 

, 2110 LOCATE 14,15:PRINT"TAPEZ LES NOBLES DONNEES DANS LA COLONNE DE DROITE" 

I 2130 LOCATE M8:PniNT "DATE : ‘îd«(e); :L0CATE 50,18:PRINT CHR*<243)+*DATE 
| : "iîINPUT 

1 2140 LOCATE !,20."PRINT "OPERATION : ";a$(e>îîLOCATE 45,20:PRiNT CHR*(243)+"0PERA 
| T10N : "îHNPUT ;a*<e) 

, 2150 LOCATE 1,22:PRINT "MONTANT : "ia'leiiîLOCATE 47,22:PRINT CHR*(243)+"M0NTA 
I NT : “; :INPDT ;a'(e) 

1 2160 LOCATE 1,15:PRINT STRING$(80," "1îLOCATE l.lBîPRINT STRINGXieC," "lîLOCATE 
1 1,20:PRINT STR1N6*(80," "lîLOCATE 1,22:PRINT STRlNGi<80," "i 
| 2170 FOR i=l TO en:s!=s'+(a'(i)i:NEXT iis'=s!*(as‘) 

. 2180 LINE INPUT U* 

I 2190 IF e<=en THEN GOTO 2050 ELSE 2200 
, 2200 GOSUE 780 
1 2210 LINE INPUT zt 
| 2220 GOTO 2590 

, 2230 ’-chargement 

I 2240 CLS 

i 2250 PRINT"Chargeaient du fichier ' 

1 2260 OPENIN "Budget" 

| 2270 FOR e=l TO en 
1 2280 INPUT#9,d*(e) 

| 2290 INPUT#9,'a»(e> 
l 2300 INPUT#9,al(el 
' 2310 NEXT e 
| 2320 INPUTt9,as! 

2330 FOR f=l TO fi 
| 2340 INPUT#9,q(f) 

, 2350 FOR c-1 TO ch 
I 2340 INPUTI9,co(f, cl 
1 2370 NEXT c 
2380 NEXT f 
j 2390 CLOSEIN 
I 2400 GOTO 70 

2410 ’-sauvegarde 

I 2420 CLS 

1 2430 PRINT'Sauvegarde" 

! 2440 OPENOUT "Budget" 

. 2450 FOR e=l TO en 
I 2440 PRINT#9,d4(e) 

( 2470 PR!NT#9,aJ(e) 

2480 PRlNT#9,a'le) 

| 2490 NEXT e 
. 2500 PRlNT«9,as' 

I 2510 FOR f=l TO fi 
I 2520 PRINT#9,q(f) 

1 2530 FOR c=l TO ch 
! 2540 PRINTt9iC0(fiC) 

2550 NEXT c 
i 2560 NEXT f 
I 2570 CLOSECRJT 
1 2580 GOTO 70 

2590 ’-retour tenu 

2600 MODE 2:BORDER lîLOCATE 1|24:LINE INPUT'Pour retourner au menu appugez sur u 
I ne touche"; 2 » 


2610 GOTO 210 
2620 '- 


-Gestion Budget Familial 

2630 CLS 

2640 PRINTiPRINTîPRINTïPRINTiPRINTîPRINTiPRINT 
2450 PRINT" Nenu" 

2460 PRINT" -" 

2670 PRINT" t 

2680 PRINT" t 

2690 PRINT" t 

2700 PRINT" I 

2710 PRINT" [ 

2720 PRINT" 

2730 RESTORE 

2740 FOR f=l TO fiîREAD q(f):FOR c=l TO qlfUREAD co4tf,clîNEXT cîNEXT f 
2750 LOCATE 1,24 ïINPUT* quel est votre choix"iso 
2760 ON so 60T0 2770,2960,3110,2770,3420,70 

2770 '-Saisie-Modif 

2780 CLS 

2790 PAPER IîPEN 10 
2800 FOR f=l TO fi 
2810 CLS 

2820 IF 50=1 THEN GOTO 


1 I. Saisie" 

2 1.Edition" 

3 I. Bilan* 

4 I. Modification" 

5 I.Graphique" 

I 6 I.Retour au menu principal ' 


2840 


_ __ _ _ 60TQ 28 

\(7S3Ô w!n6ùU*2, 1,60, I,F>fRINT#2,"LORSQUE LE POSTE N’EST PAS MODIFIE,TAPEZ SUR LA 
(V lUULHfmir- 


2840 FOR c=l TO q(f) 

2850 LOCATE 3,3+(c-l)*2îPRINT;co4(f,c); 

2860 1F c=l TIEN GOTO 2920 
2370 PRINT STRING$(60-LEN(co*(f,c) 

2880 LOCATE 66,3+<c-l)»2:PRINT;co(f,c) 

2890 LOCATE 65,3t(c-l)*2iINPUT ir* 

2900 IF r»=” THEN GOTO 2920 
2910 co(f,c)=VAL(r$) 

2920 NEXT c 
2930 NEXT f 

2940 FOR f=X- TO fiïco(f,l)=OïFOR c=2 TO chico(f, 1 )=co<f, 1 )-*-co<f,cisNEXT cîNEXT f 
2950 GOTO 3710 

2940 ’-Edition 

2970 as *• 

2980 RESTORE 
2990 FOR f=l TO fi 


300C CLS 

3010 ORIGIN 0,0ïDRAW 0,390 'îDRAW 638,390:DRAW 638,0îDRAH O.OîQRIGIN 0,350îDRAW 63 

8,0 

3020 READ q!fi.collf.1) 

3030 LOCATE 2,2:PRlNT;cotif,li STR!NS*(40-LENIco*(f,i)),\')ico!f,lti" Francs" 
3040 FOR c=2 TO q(f) 

3050 READ co»tf,cl 

3060 LOCATE 2,4+<c-ll*2iPMNTico*<f,c! STRINS*(65-LEN(co*<f,c>),•.*>?co<f,c) 

3070 NEXT c 
3080 LINE INPUT ;z* 

309D NEXT f 
3100 GOTO 3710 

3110 ’-Bilan 

3120 as 

3130 h=0ik=0 
3140 RESTORE 

3150 LOCATE 5,2iPRINT"RECETTES" 

3160 PRINT STRING*(30, "•—* ) 

3170 PRINT:PRINT* *;ca*(8,1)STRING*(2D-LEN(ca*(8,1)>,".*iUSING "#»*#tt’;co<8,l)î 
PRINT 

3180 PRINT STRING4I30, "=" ) ."PRINT 
3190 LOCATE 5,8iPRINT"DEPENSES" 

3200 PRINT STRING*(30,I 

3210 FOR f=l TO 7IL0CATE 2,X0+(f-1>*2:PRINT coi(f,l> STRING*<20-LEN(co*(f,U>,*. 
"IUSING , #*tm*"ico(f.l) 

3220 NEXT 

3230 ORIGIN 0,40:DRAW 0,358:DRAW 240,358ïDRAW 240,0îDRAH 0,0 
3240 DEG-'ORIGIN 450,250iFOR i=l TO 360:PL0T 12O*SIN(i),12O*C0S(i)."NEXT i 
3250 FOR i=l TO 7;k=k+<co(i,l)):NEXT i 
3260 h=k+co(8,1) 

3270 h=360/h . 

3280 ORIGIN 45Q,250:ORAH 120*SIN(0I,12Q«C0S(0I 

3290 ORIGIN 450,250:DRA« 120»SIN(h*co(8,l)),120»C0S(h«co(8,ll) 

3300 FOR i=l TO h*co(B,l) STEP 3:0R16IN 450,250ïDRAH 120*SIN<i),l20*CGS(i):NEXT 
i 

3310 LOCATE 70,2iPRINT"RECETTES" 

3320 L OCATE 35,16:PRINTJDEPENSES" 

'-3 23C HlNDOH II Ji 1:80 ; 24,2*._J 
3340 PR1NTI3,CHR*(24I 
3350 PRINT#3,STRING*(80,* ") 

3360 IF k>co(8,l) THEN 3380 

3370 PR1NTI3,"VOTRE BUDGET EST EXCEDENTAIRE DE * fco(8,î)-k;‘FRANCS*:GOTO 3390 
3380 PRINTK3,"VOTRE BUDGET EST DEFICITAIRE DE *îk-co<0,1)î'FRANCS* 

3390 LINE INPUTI3,îz* 

3400 PRINT«3,CHR$(24) 

3410 GOTO 3710 

3420 ’- ■ ■ G raphiques 

3430 CLS 


3440 PRINT" 

CATEGORIES" 


3450 PRINT" 


ï PRINT îPRINT 

3460 PRINT;PRINT" 

- 1 -. 

..LOGEMENT" 

3470 PRINT:PRINT" 

- 2 -. 

..DEP. DOMESTIQUES' 

3480 PR INT: PR INT" 

- 3 -. 

..TRANSPORTS" 

3490 PRINTiPRINT" 

- 4 -. 

..ENFANTS" 

3500 PRINTîPRINT* 

- 5 -. 

..SANTE" - 

3510 PRINT :PRINT* 

- 6 -. 

..LOISIRS" 

3520 PRINT:PRINT* 

- 7 -. 

..IMPOTS " 

3530 PRINTiPRINT" 

- 8 -. 

..REVENUS" 


3540 LOCATE l,24:INPUT"Quel est votre choix ï’îde 

3550 as 

3560 h=0:m=l 

3570 FOR c=2 TO q(de) 

3580 IF co(de,c)>h THEN h=co(de,c) 

3590 NEXT c 
3600 h=300/h 

3610 LOCATE 35,2:PR1NT co«(de,l) 

3620 FOR c=2 TO qlde) 

3630 ORIGIN lO-Mm-11*64,50 

3640 DRAM 0,h*co(de,cl".DRAH l6,h*co(de,c):DRAU 16,0:DRAW 0,0 
3650 LOCATE l+(nrl!*8,24:PRlNT LEFT*(co*(de,c),6) 

3660 m=m+l 
3670 NEXT c 
3680 LINE INPUT!z* 

3690 GOTO 3710 

3700 ’-Retour au menu 

3710 MODE 2: PAPER 1D:PEN Ü60T0 2630 

3720 ’-Données 

3730 DATA 5,LOGEMENT,Loger,Prêts,Assurance,Entretien 

3740 DATA 10,DEP. DOMESTIQUES,E.D.F/G.D.F,Eau,Vetements,Nourriture,Toilette,Prêt 
s,Téléphoné,Produits d'entretien,Coiffeur 

3750 DATA 8,TRANSPORTS,Prêt sur véhiculé,Essence,Assurance,Vignette,Carte grise, 
Entretien,Parking 

3760 DATA 7,Etf ANTS,6arderie,Jeux,Argent de poche,Frais scolarité,Assurance,Lois 
irs 

3770 DATA 7,SANTE,Médecin,Dentiste,Opticien,Hopital,Medicaments,Hutuelle 
3780 DATA 10,LOISIRS,Vacances,Livres,Revues,Cinéma,Disques,Restaurant,Jeu,Cadeau 
x,Micro 

3790 DATA 6,IMPOTS ET TAXES,I.R.P.P,Impôt foncier,Taxe d’habitation,Redevance te 
le,Divers 

3800 DATA 5,REVENUS,Salaire monsieur,Salaire madame,Rentes,Al locations familiale 
s 

3810 PRINT'Erreur numéro";ERRî* ligne";ERL 
3820 RESUME NEXT 

3830 ’-menu 

3840 as 

3850 LOCATE 36,10:PRINT"MENU" 
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3860 LOCATE 36,li:PRINT*-» 

3370 PRIMT:PRINT:PRINT 

3880 PRINT' Calcul de nansuahtee de remboursement.1* 

3890 PRINT' Calcul de capitalisation.2* 

3900 PRINT' Calculs d’interets composes. 3‘ 

3910 PRINT' Menu principal. .....4* 

3920 PRINT:PRINTî PPINT 

3930 INPUT'Quel est votre choix*ich 

3940 ON ch SOSUE 3990,4260,4460,4530 

3950 '-test 

3960 LOCATE 1,25ILINE INPUT'pour retourner au menu, tapez sur une touche'îz» 

3970 GOTO 3840 

3980 '-mensualités 

3990 CLS 

4000 DEF PN Hx>=(i+<i/fiU+i>*nM>)> 

4010 INPUT'Capital emprunte :'îm 

4020 INPUT'Tau* d’interet annuel en X z * ; i 

4030 INPUT'Nombre de mensualités :*în 

4040 CLS 

4050 1=1/12/100 

4060 UINDOU *0,1,80,1,6 

4070 PRINT*.....’ inî* remboursements de 'iiPRINT 

USIN6 *##*#.*#’;PN f(*>*(im)zLOCATE 70,1 rPRINT'Francs* 

4080 PRINT STRIN6$(80,**') 

4090 PRINT* dois Interet Amortissement Capital resta 

nt* 

tlLO PRINT PTRlN fitmn. ’=2J 

ajlOWIWOW jHil,B0.7,25 > 

4120 HINDOU SWAP 0,1 
4130 b=*:xl=l 
4140 FOR x=I TO n 

4150 LOCATE 2,xl:PRINT xPLOCATE 12,xliPRINT USING '##*#.##'Ib*iî:LOCATE 34,xÜP 
RINT USING '*##*.**’;FN ftxlttrbfii.‘LOCATE 57,xl:PRINT USING ’*»***.*#* î(b-(H< 
FN f(xl)-(b*il>) 

4160 b= <b— (»*<FN f(x)Hb»i)>) 

4170 IF x= 18 OR x=36 OR x=54 OR x=72 THEN LINE INPUT'Pour tourner la page, appu 
ge: sur une touche’ iz#:xl=l:CL5 

4180 ’ IF x=17 THEN LINE INPUT'Pour tourner la page, appugez sur une touche* îz 
$S60T0 4060 
4190 xl=xl+l 
4200 NEXT x 

4210 HINDOU #2,1,00,1,25 


mmà 


A220 HINDOU SWAP 2,0 
4230 RETURN 

4240 ’-capitalisation 

4250 GOTO 4200 
4260 as 

4270 INPUT'Effectuez vous les depots en début de chaque mois (o,n) :*ir< 

42B0 PRINTiPRINT:PRINT STRING»<80,***> 

4290 IF r*=*o* GOTO 4430 ELSE 4310 

4300 ’.’.. 

4310 DEF FN f(x>=< U(1+i)*n1-1>/i)*m 
4320 INPUT'Capital verse chaque mois :*i«i 
4330 INPUT*Taux d’interet annuel en X :*îi 
4340 INPUT*Nombre de mois :'in 
4350 PRINT: PRINT STRING«(80,***1 
4360 i=i/100/12 

4370 LOCATE 10,l5:PRINT*En déposant une sonne de‘;m *F pendant* In ‘mois * 

4380 LOCATE 10,17:PRINT*Au taux d’interet mensuel de *USING"##.###*ii*10D üPRIN 
T* X vous obtiendrez* 

4390 LOCATE 10,19:PRINT*A la fin du *in *e mois un capital de 'USING*#####.*#* îF 
N f(xlîSPRINT*.’ 

4400 LOCATE 10,21zPRINT*.Francs (français).c’est mieux que rien!!* 

4410 RETURN 

4420 '. 

4430 DEF FN f(x)=((<((l+i> A H>-l>/i»»(l+ii«* 

4440 GOTO 4320 

4450 ’-interets composes 

4460 as 

4470 DEF FN f(x>=Ul+i>*n)*tn 

4480 INPUT’Capital place :*!m 

4490 INPUT'Duree du placement (en années) :'in 

4500 INPUT*Taux d’interet annuel :*!i 

4510 PR1NT:PRINT:PRINT STRING»(80,*»*> 

4520 i=i/100 

4530 LOCATE 10,15:PRINT'Un capital de'im * F place pendant *in ’annees * 

4540 LOCATE 10,17:PRINT*Au taux d’interet annuel de 'USIN6*##.##*îi*100îSPRINT* 

X* 

4550 LOCATE 10,19:PRINT'Vous donnera a la fin de la * in *e année* 

4560 LOCATE 10,21:PRINT*Un capital de *USIN6*#####.##*iFN f(x);sPRINT* francs* 

4570 RETURN 

4580 NOUE 2:GOTO 70 

4590 RETURN 


Généalogie 


h Mc 


Un peu spécialisé, cet utilitaire 
vous permettra d’entrer votre 
impressionnant arbre généalogi¬ 
que sur ordinateur et d’en gérer 
plus facilement le déroulement. 

1 : entrée des données dans 
J’arbre : la donnée est stockée à 
l'emplacement du curseur*. 
Tabulez dans l’arbre avec 

“J” ouvre le fichier de l’arbre. 
Entrez la donnée puis valider par 
ENTER. 

2 : entrée des frères du nom 
pointé par “*”. ***-” ouvre le 
fichier frères. Tabulez dans le 
fichier frères. ’*[” puis entrez les 
données et validez par Enter. Si 
le nom a également une généa¬ 
logie, répondre OUI à la ques¬ 
tion sinon tapez Enter. -» sort 
du fichier. 

3 : un des frères a une généalo¬ 
gie*. tabulez ou entrez 


dans le fichier. Positionner le 
curseur sur le nom à trai¬ 
ter. “J " demande de généalogie 
inférieure. Si le nom a une suite, 
il se trouve en vidéo inverse. 
Sinon faire la correction... (voir 
n° 2). 

4 : lecture de l’arbre vers le bas. 
*’i ” quelque soit la position du 
curseur dans l’arbre. 

5 : lecture de l’arbre vers le haut, 
“f ” : si le curseur doit être 
sur ta ligne supérieure. 

6 : “/” vous apporte de l’aide. 
Affiche la première page entrée. 

7 : CLR » chaque page entrée 
laisse une trace dans le triangle. 
CLR affiche chaque page, le 
curseur se positionne sur le point 
dans te triangle. 

Plus on monte dans le triangle, 
plus les points sont rapprochés. 
Ne pas oublier que si, à la géné¬ 


ration 1, on a l point, il y en a 
4 à la 3«, 8 à la 4 e ... 

A la 10 e génération, deux points 
l’un à côté de l’autre se 
confondent. 

Fonctions disponibles 
à tout moment 

-* Tabuler dans l’arbre ou sor¬ 
tir du fichier frères. 

*- Entrer dans le fichier frères 
ou tabuler dans ce fichier, 
i Demande de généalogie basse, 
déplace le curseur du triangle. 
I Demande de généalogie haute, 
déplace le curseur du triangle. 

] Permet d’entrer dans les 
fichiers noms ou frères. 

[ Idem. 

CLR Affichage de toutes les 
pages. 

/ Help, si vous êtes perdus. 


5 REM GENEALOGIE par Alain LEB0UC 

10 REM:? #8, CHRI ! 27) ; CHRÎ i 15 ) ; : PRINT #B,CHRH27); , 3 , ?CHM(15)i 
20 ON ERROR GOTO 2990 

30 REM:**#*«**»»****«*****m****#*****»*#m##******##******#* couleur d’écran 
40 MODE 1 tPRINTîPRIfJTîPRlNT'COULEUR D’ECRAN CLAIR ? Oui/Non* 


£ Scroll des données pointées 
par le curseur (maxi 

200 caractères). 

8 fin de P.G. 

COPY : donne le menu. 

TAB : copie de l’arbre sur 
imprimante, 

Shift TAB copie des fichiers sur 
imprimante. 

Shift -» Déplacement à droite 
dans le triangle. 

Slûft «- Déplacement à gauche 
dans le triangle. 

Ce programme permet de sauve¬ 
garder vingt-neuf générations, 
soit au total : 1.072.333.483 
noms. Chaque élément de fiche 
peut avoir treize frères ou sœurs. 
Chaque frère peut également 
avoir son propre arbre généalo¬ 
gique vers le haut ou vers le bas. 
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770 IF f=0 THEN GOTO 370 
780 FOR i = 1 T0 f 

790 IF inn(t)=VAL(LEFTî(f$(i),3)) THEN b=b+l:bb(b)=i:tas<b)=VAL(MID*<f$(i),4,2))-*df*(b)=MID$(/*(U,6,200) 

800 NEXT i 

810 IF tFO THEN GOTO 870 

820 LOCATE 5,ll:PRINT*liste des freres ou soeurs' 

830 FOR i=l TO b 

840 IF tas< i )>1 THEN LOGATE 23,11+i : PRINT CHR$ ( 24 )s LOCATE 2, ll+i'-PRINT LEFT* (df *< i ), 35 > : LOCATE 23» Il+i SPRINT CHRi(24):G0T0 860 
850 LOCATE 2,li+i:PRINT LEFT*<df$(i),35) 

860 NEXT i 
B70 REM:CONTINUE 

880 REM:*********************************»**************************» clavier 
890 LOCATE 1,25:PRINT NNÜLOCATE 52,25:PRINT nnni 



n 


900 LOCATE t%,( t, 1 ), tX(t,?) : PRINT'*' 

910 a*=INKEY$:IF at=" THEN GOTO 910 
920 GOSUB 3000 

930 IF ASC(AÎ>=224 THEN GOSUB 2070:G0T0 940 
940 LOCATE 25,1 :PRINT z2*i" * 

950 IF A$=**’ THEN GOSUB 23O0:G0T0 910 
960 xz=l:flag=0 

970 IF ASC(ai)=16 THEN GOTO 2870 '__ 

990 IF ASC(ai)=243 THEN GOSUB 1110:GOTO 730 
1000 IF at=*[* THEN GOSUB 1170:G0T0 910 
1010 IF a*=‘l‘ THEN GOSUB 142O:G0TO 910 
1020 IF ASC(a*)=225 THEN GOSUB 274Q:G0T0 910 
1030 1F ASC(ai)=242 THEN GOSUB 135G:G0T0 910 

1040 IF a$="/‘ THEN rec=0:t=l:ta=l:x=y<1,0)sCLSsGOSUB 2980:LOCATE 26,23ïPRINT'NE PERDEZ PAS PATIENCE*:GOTO 420 
1050 1F ASC(ai)=240 OR ASC(ai)=241 THEN GOTO 1830 
1060 IF ASC (ai) =250 THEN X=X-INT( (2^1/30) :GOSUB 430:G0T0 910 
1070 IF ASC(a*)=251 THEN X==K+INT((2 A q)/30) :60SUB 430:GOT0 910 
1080 IF ASC(ai)=9 THEN GOSUB 2520:G0T0 910 
1090 IF Ai='a" THEN GOTO 2160 
1100 GOTO 910 

1110 REMî(HHHHHHHHHl*(HHHHHt******«**********lHHHHH«»**(HHHH(»***#*»» tab arbre 

1120 LOCATE l),tX(t,2)sPRINT" LOCATE «(t,l)+l,«(t,2):PRINT ”. 1 

1130 LOCATE tï(t,l)+l,t7.(t,2):PRINT LEFTî(dnî(t), 17) 

1140 IF 11)11 THEN LOCATE 2,11:PRINT z2ÜL0CATE 2,11 :PRINT LEFT*(df*( 11-11 ),35):LOCATE 1,11 SPRINT 1 " 

1150 ll=0:t=t+l:IF t=8 THEN t=l 
1160 RETURN 

1170 entree arbre 

1180 LOCATE 65,25 : PRINT * MEMOIRE 'ïFRE(I) 

1190 IF 1100 THEN RETURN 

1200 LOCATE 1, lsLINE INPUT-; x* : x*=UPPER* ( x* ) : FOR i = 1 TO 4:L0CATE 1, i SPRINT zlîsNEXT i 
1210 IF LEN(xt!=0 THEN RETURN 

1220 LOCATE t7.(t,l)+l,«(t,2):PRINT 1 *:LOCATE t%( t, 1 )+l, t% ( t, 2 ) : PRINT LEFTi(xi, 18) 

1230 IF c=l THEN yy=yy+l:y(yy,l)=g:y(yy,2)=h:y(yy,0)=x:y(yy,3)=ta:PL0T y(yy,1),y(uy,2),PL 
1240 1F cc(t)=0 TIEN c=c+1 : n7. ( t a )=n7. H:a )+1 : cc < t ) =n7. (fa ) : va ( t ) =u ( t ) : dn* < t ) =x* : GOSUB 1290 
1250 dnt(t)=x*:GOSUB 1320 
1260 dn*(t)=LEFT*(dnîCt),200) 

1270 ni(ta,n7.(ta))=RIGHT$("Q0000ü0000"+STR$(va(t)),10)+RIGHT$("000"+STRÎ!inn(t)),3)+RIGHTÎ("00"+STRÎ(vtr(t)>,2)+RIGHTt("0000000000"+ 
STRi(itr(t)),10)+dnt(T) 

1280 RETURN 

1290 IF ta=l THEN vtr(t)=1:itr(t)=u(t):RETURN 

1310 vtr(17 =Q:itr(t)=0sRETURN 
1320 FOR k= 1 TO f 

1330 IF VAL(LEFT$(f$(k),3i)=inn(t) THEN fi(k)=LEFTî(fî(kî,5)+xi:RETURN 
1340 NEXT k:RETURN 

1350 REM:**********************************»*»********************* tab fichier 

1360 IF 11>0 THEN LOCATE i,llsPRINT' "SLOCATE 2,LL:PRINT 1 ":GOTO 1380 

1370 11=12:L0CATE 1,llsPRINT' "sLOCATE tX(t,l)+l,tï(t,2)SPRINT Z*sLOCATE tX(t, 1 )+l,t'/.(t,2)SPRINT LEFTildni(t), 17)sGOTO 1400 

1380 IF tas(LL-11)>1 THEN LOCATE 2,LL:PRINT CHRi(24):LOCATE 2,LL’.PRINT LEFT*(df*<LL—11),35 )ïLOCATE 2,LLsPRINT CHRt<24):G0T0 1400 

1390 LOCATE 2,LL:PRINT LEFT*<dft(LL-11),35> 

1400 11=1L+1: IF 11=24 THEN 11=13 
1410 LOCATE 1,11:PRINT"*'ï RETURN 

1420 REM:**********«********+*(HHH(«m*+**»******#*+#+*m***** entree freres 
1430 IF 11=0 THEN RETURN 

1440 LOCATE 1,1:PRINT"freres ou soeurs "sLOCATE 18,1:LINE INPUT;xi:xi=UPPERüx$):LOCATE 1,4:LINE INPUT’suite "iat 
1450 LOCATE 2,11:PRIÜT LEFT$(xi,35) 

1460 FOR i = 1 TO 4:L0CATE 1, üPRINT zl*:NEXT i 

1470 IF LEN(xi)=0 THEN RETURN 

1480 IF LEN(xi)>200 THEN GOTO 2970 

1490 dfi(ll-ll)=xt:GOSUB 1750 

1500 IF 11-1 l>b AND ai=V OR ai="0" THEN GOTO 1680 

1510 IF 11-11>b THEN GOTO 1640 

1520 IF ai=*o" OR ai="0" THEN GOTO 1590 

1530 REM:correction pas de suite 
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1540 IF tast 11-11)00 THEN tas(ll-ll)=0 
1550 dft(11-11)=LEFT$(dft(11-11),200) 

1560 f$(bbill-ll))=RIGHT$(*OQO'+STRt(inn(t))i3)+RlGHTf( , 00"+slR$(tà5(ll-ll>) 1 2)+dfl(ll-ll) 

1570 LOCATE 1,11îPR 1NT* , :ll=ll+l:IF 11=24 THEN 11=12 

1580 LOCATE 1,11:PRINT"*":RETURM 

1590 REM:suite correction 

1600 IF tasill-lüOO THEN GOTO 1560 

1610 sui=sui+l:tas!ll-ll!=sui:vtr(t)=ta:itr(t)=u(t):GOSUB 1800 

1620 n$(ta,cc(t))=RlGHTi( , 0000000000 , +STRt(va(t)),iO)+RIGHTîi , 000 , +STRï(inn(t)),3)+RIGHT$( , 00 B +STR$(vtr(t)),2)+RIGHT$("0000000000 , +S 
TRI(itr(t)),10)+dn$(t) 

1630 GOTO 1560 

1640 REPÜnouvelle donnée pas de suite 
1650 b=b+l:f=f+l:bb(11-1l)5f:tas(11-11)=0 
1660 1F înnltïOO THEN GOTO 1560 
1670 fr=fr+l:innit)=fr:GOTO 1620 
1680 REM:nouvelle donnée suite 

1690 b=b+î:f=f+l:bb(ll-ll)=f:sui=sui+l:tas(ll-ll)=sui:G0SUE 1800 
1700 IF inn(t)=0 THEN fr=fr+1:inn(t)=fr 

1710 ttfbbi11-11)i=RIGHT$("000 , +STR$(inn(t)) 1 3)+RIGHT$('00"+STR$(tas(l1-11)))2)+df$(ll-ll) 

1720 utr(t)=ta:itr(t)=u(t) 

1730 n$(ta,cc(t))=RIGHT$( , 0000000000’+STRt(va(t)),10)+RIGHT$(“000"+STR$(inn(t)),3)+RIGHT*( , 00 , +STR$(vtr(t)) ( 2)+RIGHT$( , 0000000000"+S 
TR$(itr(t)),10)+dn$<t> 

1740 GOTO 1570 

1750 IF inn(t)<>0 THEN RETURN 
1760 f=f+l:fr=fr+1:inn < t)=fr 

1770 n$(ta,cc(t))=RIGHT$( , 0OO00OOO00 , +9TRÏ(va(t))ii0)+RIGHTi(”O00 D +STR$iinn(t)),3)+RîGHT$('00 , +STRt(vtr(t))i2)+RIGHTI( , D000000Q00"+S 
TR$(itr(t)),10)+dnt(t) 

1780 ft(f)=RIGHT$i , 000 , +STR$(inn(t))»3)+RIGHT$('00 , +STR$(tasül))i2)+dn$(t) 

1790 RETURN 

1800 REM:**************************************************************** SUITE 

1810 N$(TAS(LL-ll),0)=RIGHT*COOOOOOOOOO"+STR$(x) I 10)+RIGHT*COOO , +STR$(INN(T)),3)+RlGHT$('00“+STR$(TA),2;+RIGHTt(“OOOOODOOOO , +STRi( 
ITR(T)),10)+XÎ 

1820 N7.(TAS(LL-11) )=1 : RETURN 

1830 REMU******************************************************* c Cro ll arbre 
1340 LOCATE 26,23:PRINT"NE PERDEZ PAS PATIENCE* 

1850 IF 11=0 THEN GOTO 1853 

1851 IF TAS(LL-11)>1 THEN TA=TAS(LL-11):X=VAL(LEFT*<n*(tas(11-11),Q),10)):GOSUB 2050:T=i:LL=0:GOTO 420 

1852 PRINT CHR*(7):L0CATE 23,ÜPRINT*IMPOSSIBLE DE TRAITER L’INFORMATION*:FOR K =1 TO 1Ü00:NEXT K:LOCATE 23,l:PRINT Z2*i" 

':LOCATE 26,23:PRINT Z2î:G0T0 910 

1853 1F ASC(aîi=24l THEN X=INT(U(1)/2):X=INTÜ/2):G0SUB 2050:T=1:GOTO 420 

1854 1F t<4 THEN GOTO 1852 

1855 IF ta>l THEN GOTO 1857 

1856 x=U(T):GOSUB 2050:t=4:G0T0 420 

1857 IF t=4 AND itr!4)=x*4 THEN ta=vtr(4):SOSUB 2050:G0T0 420 
1853 X=U(T):GOSUB 2050:t=l îGOTO 420 

2030 REM : «if*************»*************-»**************#********** scroll fichier 
2040 ta=tas(ll-ll):x=4096:LL=0:G0T0 420 
2050 LOCATE Ty.(T,l),T7.(T,2>:PRINT’ ' : RETURN 

2070 LOCATE 18,1 :PRINT CHR$(24) 

2080 LOCATE 1,25:PRINT*tab fait defiler l’affichage" 

2090 AZ=AZ+l:IF AZ>7 THEN AZ=1 

2100 LOCATE 18,1:PRINT V$(AZ):FOR ii= 1 TO 100:NEXT ii 

2110 aî=INKEYt:!F a$="‘ THEN GOTO 2110 

2120 1F ASC(a$>=9 THEN GOTO 2090 

2130 LOCATE 18,1:PRINT’ *:PRINT CHR$(24):LOCATE 18,l-’PRINT" 

H 

2140 LOCATE 1,25:PRINT* 

2150 RETURN 

2160 REM:****************************»***************************** FIN DE P.G. 

2170 CLS-’MODE 1 

2180 LOCATE 1,19:INPUT"confirmer o/n"ia$:a$=UPPER$(a$) 

2190 IF at="N"THEN LOCATE 1,19:PRINT Z2*:t=l:ta=lîy(1,3):MODE 2:GOTO 420 
2200 LOCATE 1,20:PRINT"OK ATTENDRE SAUVEGARDE DU FICHIER":SPEED WRITE 1 
2210 REM:********************************************************** sauvegar de 
2220 PRINT #9,TA:PRINT #9,FR:PRÎNT #9,SUI:PRINT #9,F 
2230 FOR I = 0 TO sui'.PRINT #9,NX(I):NEXT I 

2240 PRINT #9, yy : FOR i = HO yy : PRINT #9, y ( i, 1 ) : PRINT #9, y ( i ,2) : PRINT #9,y ( i,0) :PRINT #9,g(i,3):NEXT i 
2250 FOR 1=1 TO F:PRINT #9,Ft(I):NEXT I 
2260 FOR I = 0 TO suüFOR J = 0 TO NX(i) 

2270 PRINT #9,N$(I,J) 

2280 NEXT J:NEXT I 

2290 CLOSEOUT:t=1 :ta=1 :x=16:MODE 2:G0T0 420 

2300 REM:****************************************************** SCROLL FICHIER 

2310 IF 11)11 THEN GOTO 2420 

2320 IF flag=l THEN GOTO 2360 

2330 xz=Xz+l:IF xz-l> LEN(dn*(t)) THEN GOTO 2350 

22 1 



l 




2340 LOCATE t%(t,l)+l,Wt,2)SPRINT MID*(dn$<t),xz,17)s‘ ':f 1 ag=0sRETURN 
2350 xz=18 

2360 xz=xz-l:IF xz<l THEN GOTO 2400 

2370 LOCATE tX(t,l)+l+xz,t7.tt,2) '-PRINT MID^idrr*(t>, 1,18-xz> ï" ’ 

2380 flag=lsRETURN 

2390 IF xz>l THEN GOTO 2370 

2400 flag=0sG0T0 2330 

2410 REM:***#*****************M****1HHHf*«#W************»***1HHH(****1HHHH»*** 

2420 IF flag=l THEN GOTO 2470 

2430 xz=xz+l:IF xz-l> LEN(df*(11-11)) THEN GOTO 2460 

2440 LOCATE 2,11 SPRINT MID*(df$< 11-11 ),«,34)i* *' 

2450 flag=0sRETURN 
2460 xz=34 

2470 xz=xz-l:lF xzd THEN GOTO 2510 

2480 LOCATE 2+xz,11 SPRINT MID*(df*«11-11),1,34-xz)ï* 1 

2490 flag=lsRETURN 

2500 IF xz>l THEN GOTO 2480 

2510 flag=0:GOTO 2430 

2520 LOCATE 18,1 sPRINT*COPIE D’ECRAN SUR IMPRIMANTE ATTENDRE 1 
2530 IF (INP(&F500) AND 64>=0 THEN GOTO 2570 

2540 LOCATE 18,2:PRINT*T imprimante n’est pas Branchée appuyez une touche" 

2550 a$=INKEY$:lF a$=" THEN GOTO 2550 

2560 LOCATE 1B,2:PRINT* 1 sLOCATE 14,IsPRINT" 

"sRETURN 

2570 PRINT #8,CHR»(10)sPRlNT #8,CHR*(27);CHR*(15); sPRINT #8,CHR*«27)ï"S* îCHR«(15); SPRINT #8,*x= , îx;*mémoire disponible =‘;FRE(i) 

2580 FOR i = 1 TO 7:F0R j = LEN(dn*(i)> TO 20 
2590 dn<(i)=dn$(i)+‘.":NEXT j 
2600 NEXT i 

2610 PRINT #8,LEFT*(dn*(4),20)î 1 ";LEFT$(dn*(5),20);* , ;LEFT$(dn$(6),20)i" 1 ;LEFT»(dn*(7>,20) 

2620 PRINT #8sPRINT #8 

2630 PRINT #8, 1 *;LEFT*(dn*(2),20)î* *iLEFT$(dn*(3),20); 

2640 PRINT #8SPRINT #8 

2650 PRINT #8, 1 ";LEFT*(dn$(l),20) 

2660 IF b=0 THEN GOTO 2730 

2670 PRINT #8i'liste des freres de *;dn*(t) 

2680 FOR i = 1 TO b 

2690 IF tas(i)<> 0 THEN PRINT i8,df*(bb<i>);" suite "sGOTO 2710 
2700 PRINT #8,df$(bb(i)) 

2710 NEXT i 

2720 LOCATE 18,IsPRINT 1 1 • 

2730 PRINT #8, •=====================================»=====================“ 

Q1Z2 LOCATE 1S,2ïPRINT* 'sLOCATE 14,IsPRINT* 

"SFOR i = 1 TO 2300sNEXT isRETURN 

2740 REM 

2750 LOCATE 18,IsPRINT*COPIE du fichier SUR IMPRIMANTE ATTENDRE 1 
2760 IF (INPI&F500) AND 64)=0 THEN GOTO 2800 

2770 LOCATE 18,2:PRINT"1’imprimante n’est pas Branchée appuyez une touche" 

2780 a$=INKEY$sIF at= 11 THEN GOTO 2780 

2790 LOCATE 18,2sPRINT" ’SLOCATE 18,IsPRINT 1 

■sRETURN 

2800 PRINT 18, 1 =================== liste des fichiers =================== 1 

2810 FOR i = 0 TO sui 
2820 FOR j= 0 TO nX(i) 

2830 PRINT #8,n»(i,j):NEXT jsNEXT i 
2340 FOR i = 1 TO fSPRINT #8,f*(i)îNEXT i 
2850 LOCATE 18,IsPRINT 1 
2860 RETURN 
2870 rec=rec+l 

2880 IF rec)yy THEN rec=0sG0T0 910 
2890 x=yirec,û)ita=y(rec,3) 

2900 PLOT G-l,H-l,POsPLOT G-l.H+UPLOT G+l,H+i:PLOT G+1,H-1 
2910 g=y(rec,l)sh=y(rec,2) 

2920 PLOT G—1,H-1,PL s PLOT G-l.H+lsPLOT G+l,H+i:PLOT G+l.H-l 

2930 u(l)=x.su(2)=2*xsu(3)=u(2)+lsu(4)=u(2)*2su(5)=u(4)+isu(6)=u(5)+lsu(7)=u(6)+l 

2940 LOCATE 35,7:PRINT 1 "sLOCATE 35,7sPRINT CHR$(24)îLOCATE 35,7sPRINT xsLOCATE 35,7:PRINT CHR$(24) 

2950 FOR i= 1 TO yysPLOT y(i,1),y<i,2)sNEXT i 
2960 GOTO 550 

2970 t=1 s ta=1 :x=y(1,3):CLS:GOTO 420 

2980 PLOT t, 250,PLs DRAW 290,250s PLOT 290,250sDRAW 290,1sRETURN 
2990 t= 1 s ta=l s x=y( 1,3 ) s CLS SGOSUB 298QS60T0 420 
3000 IF FRE(i)<6000 THEN GOSUB 3020 
3010 RETURN 

3020 FOR i = 1 TO 5sF0R j= 0 TO 10 sqt(i,j)="zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 

zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 1 

3030 NEXT jsNEXT i 

3040 FOR i = 1 TO 5sF0R j = 0 TO 10sq$(i,j)=**sNEXT jsNEXT i 
3050 RETURN 
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70 ' 3.rue gambetta 60100 «OSENT sur 0ISE34’ 

80 ’======================== 

90 DEFINT a-z:CLS:MODE 1 

100 LOCATE 15,10îPRIMTJBi DE YAM":LOCATE 14,12:PRINT"A 5 COLONNES*:LOCATE 18,2ü:PRINT*par Joël Vernet 
110 DIM dt(5iidr(5),tb<30),c(5,81),flagn!5>,flagd(5)jnomjouîtS),svdt(5)»ff(12)jfinjau<5) 

120 DIM ray(6C),son(5),svnorojou!5),svci5) 

130 GOSUB 5660 

140 LOCATE 5,25:PRINT”Vouiez vous les réglés ?(o/n)“ 

150 DECi*=INKO$:lF DECit^* THEN 150 
160 IF INKEY(34)>=0 THEN GOSUB 6340 
170 GOSUB 5740:jou=0 
ISO GOSUB 5890:GOTO 6000 
190 ! =======jeu de l’AMSTRAD====== 

200 CLS #1 :GOSUB 4930 
210 GOSUB 2680 

220 CLS #6:CLS #5:L0CATE #5,5,1 SPRINT #5,'Je réfléchis...* 

230 deci$=** 

240 ’-choix de l 1 AMSTRAD- 

250 ON nel GOTO 360,590,79D,900 
260 ’nei=0:tous les des sont differents 

270 IF somde=15 OR soii.de=20 THEN GOSUB 990:IF deci*=‘M“ THEN 3070 
280 IF tir=3 THEN 340 
290 GOSUB 169D:IF deci$=*T“ THEN 2510 
300 FOR n-1 TO 5:vdel=dt(n):G0SUB 1360 
310 IF deci$="T* THEN 2510 
320 NEXT n 

330 deci$= , T , :drU)=l:dr<2)=l:dr(3i=l:dr(4)=l:dr(5)=l:G0T0 2510 
340 GOSUB 1030: IF deci$=*M“ THEN 2510 
350 deciî="R":GOSUB 1480:G0T0 2510 
360 ’nel=l:2 des semblables 
370 ON ne2+î GOTO 480,480,380 
380 ’ne2=2:c’est un fool 

390 IF soade>=14 OR x<10 THEN GOSUB 1130:IF deci$=*M" THEN 2510 
400 IF sanide>=23 THEN GOSUB 1220:1F deciî=’M* THEN 2510 
410 1F samde>=21 AND so»de<24 THEN GOSUB 1160:IF deci$=*M” THEN 2510 
420 IF tir<3 THEN cc=vde2:G0SUB 1280:1F deci*="M“ THEN 2510 
430 IF tir<3 THEN GOSUB 1360:IF deci$="T* THEN 2510 

440 IF tir<3 THEN GOSUB 1690:IF decit=“T* THEN 2510 

450 cc=vdel:GOSUB 1280:IF decit=*M* THEN 2510 

460 IF tir<3 THEN deci$=*T*:FOR 1=1 TO 5:dr(l)=l:NEXT:GOTO 2510 

470 deci$=*R":SOSUB 1480:G0T0 2510 

480 ’ne2-l:2 fois 2 des semblables ou 2 semblables,! differents 
490 IF SOmde>=23 THEN GOSUB. 1220: IF decï*=*M* THEN 2510 
500 IF somde>=21 AND sonde<24 THEN GOSUB 1160:1F deci$=*M" THEN 2510 
510 IF tir<3 THEN GOSUB 1690:1F deci*=*T* THEN 2510 

520 IF tir<3 TIEN GOSUB 1360:IF deci$="T* THEN 2510 

530 IF vdel<vde2 THEN cc=vdel:GOSUB 1280:IF deci$=*M* THEN 2510 
540 IF ne2=l THEN cc=vde2:G0SUB 1280:IF deci$= D M" THEN 2510 
550 IF vdel>=vde2 THEN cc=vdel:GOSUB 1280:IF deci$=*M* THEN 2510 
560 IF x<10 THEN GOSUB 1030:IF deci$= , M* THEN 2510 

570 IF tir<3 THEN deci$=*T*:dr(l>=l:dr(2)=l:dr(3)=l!dr(4)=l:dr(5)=l:G0T0 2510 
580 decit=’R“:QOSUB 1480:GOTO 2510 
590 ’nel=2:3 des semblables 
600 IF ne2=l THEN 690 
610 ’ne2=0 

620 cc=vdel:GOSUB 1280:IF deci$=*M* TH£N 2510 
630 1F tir<3 THEN GOSUB 1690:IF deci$="T* THEN 2510 
640 IF tir<3 THEN GOSUB 1360:IF deci$=’T* THEN 2510 
650 IF somde>=21 AND sonde<24 THEN GOSUB 1160UF decit=*M* THEN 2510 
660 IF x<10 THEN GOSUB 1030:IF deci*=*M* THEN 2510 
670 IF tir<3 THEN deci$=*T*:FOR 1=1 TO 5:dr(1)=1:NEXT:SOTO'2510 
680 deci$=*R":GOSUB 1480:G0T0 2510 
690 ’ ne2=l:c'est un fool 

700 IF sonde>=14 OR tir<3 THEN GOSUB 1130:IF deci*=*M" THEN 2510 
710 IF somde>=23 THEN GOSUB 1220:IF deci$=*M* THEN 2510 
720 IF somde>=21 AND somde<24 THEN GOSUB 1160:lFdeci$=*M* THEN 2510 
730 cc=vdel:GOSUB 12B0ÜF deci*=*M* TIEN 2510 
740 IF tir<3 THEN GOSUB 1690:IF deci*=*T* THEN 2510 
750 GOSUB 1130UF deci$=*M* THEN 2510 
760 cc=vde2:GOSUB 1280:IF deci$=*M* THEN 2510 
770 IF tir<3 THEN deci$=*T*:FOR 1=1 TO 5:dr(1)=1:NEXT:GOTO 2510 


Yam à cinq colonnes 


JEU DE YAM A 5 COLONNES 


par Joël Vernet 


Ce jeu de réflexion est beaucoup 
plus complexe que le Yam à trois 
colonnes. Il a été conçu pour être 
compatible avec les versions 464, 
664, 6128. Le programme est 
écrit en basic. Le chargement 
s’effectue par (load "YAM”) ou 
(run “YAM”). 

L’ordinateur sert d’organisateur 
de jeu, d’arbitre, de comptable 
(calcul des points) mais il peut 
également être votre adversaire 
(sans tricher !!) et même donner 
des conseils aux autres joueurs. 
A noter, puisque le programme 
est très long, que vous pouvez 
utilement alléger le travail de sai¬ 
sie en supprimant les règles, la 
sonorisation du jeu, et d’autre 
part, le rôle de joueur et de con¬ 
seiller de l’Amstrad (Lignes 190 
à 2500) ; mais attention, dans ce 
cas, l’ordinateur n’aura plus 
qu’un rôle d’arbitre, d’organisa¬ 
teur et de comptable... vous 
devrez automatique jouer à 
plusieurs. 

Les règles du jeu, très complè¬ 
tes, sont incoporées dans le 
programme. 

Joël Vernet 
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730 dea$='R‘ :GQSUB 1480:60T0 2510 
790 ’ nel=3:c’est un carre 

800 IF vdel>=3 OR tir<3 THEN GOSUB 154ÜUF decil="M’ THEN 2510 

810 IF tir<3 THEN SOSUB 1690:1F decit="T' THEN 2510 

820 cc=vdel:G05U£ 1280:IF deci$="M’ THEN 2510 

330 IF somde>=23 THEN GOSUB 1220:IF deci$='M‘ THEN 2510 

840 JF sorode>=21 AND somde<24 THEN SOSUB 1160:1F deci^'W THEN 2510 

850 IF tira THEN SOSUB 136Q:IF deci$=*T 1 THEN 2510 

860 IF tir<3 THEN deciï^T’:FOR 1=1 TO 5 ïdr <1 !=1:NEXT :GOTO 2510 

870 GOSUB 1540:IF decit= , H* THEN 2510 

880 SOSUB 1D30:1F deci*= , «’ THEN 2510 

890 deci$=°R‘:GOSUB 1480:G0T0 2520 

900 ’c’est un yam 

910 GOSUB 1600:IF deci$= , M* THEN 2510 

920 1F vdel>=3 OR x<10 THEN GOSUB 1540:IF decit="M' THEN 2510 

930 IF vdel>=3 OR x<10 THEN GOSUB 1130:1F deci$="M" THEN 2510 

940 cc=vdei:GOSUB 1280:IF deci^'M 1 THEN 2510 

950 IF somde>=23 THEN GOSUB 1220:1F deci*="M* THEN 2510 

960 IF sornde >=21 AND sonde <24 THEN GOSUB 1160:IF deci$=*M* THEN 2510 

970 IF tir <3 THEN deci^T:FOR 1=1 TO 5:dr(])=i:NEXT:G0T0 2510 

980 deci$= , R":GOSliB 148C:GOTO 2510 

990 ’r======= S ou5 programmes de l’AMSTRAD====== 

1000 ’ choix d’une suite 

1010 FOR 1=1 TO x:IF tb(l)=10 OR tb(l)=22 OR tb(l)=34 OR tb(l)=46 OR tb(l)=58 THEN decit="M , :choix=tb(l):RETURN 

1020 NEXT:RETURN 

1030 ’ choix d’un coup simple 

1040 FOR 1=1 TO x 

1050 TF tir=l AND tb(l)>0 AND tbdK7 THEN 1090 
1060 IF tir=l AND tb(l)>12 AND tb(l)'<19 THEN 1090 

1070 IF tir=3 AND i(tb(l)>24 AND tbllH31) OR dbd»36 AND tbdX43> OR (tb(l)>48 AND tb(lK55)) THEN 1090 
1080 NEXXRETURN 
109G bb=tb(l) MOD 6 

1100 FOR p=1 TO 5:IF bo=dt(p) OR (bb=0 AND dt(p)=6) THEN deci$="M , :choix=tbüi:RETURN 

1110 NEXT 

1120 GOTO 1080 

1130 ’ choix d’un fool 

1140 FOR 1=1 TO x:lF tb(l)=9 OR tb(l)=21 OR tb(l)=33 OR tb(l!=45 OR tbd>=57 THEN deci*="M":choix=tbd):RETURN 
1150 NEXT:RETURN 
1160 ' choix du moins 
1170 FOR 1=1 TO x 

1180 IF tb(l)=8 OR tbd)=2Q OR (tbd)=32 ANC üagd< jou)=32) OR (tb<l)=44 AND flagmljou)=44) OR tb(l)=56 THEN 1200 
1190 NEXT:RETURN 

1200 IF c(joU|(tb(l)-l))=0 OR c<jou,(tb(l)-l)!>=somde+2 THEN deci$="M i ‘:choix.=tb(l):RETURN 
1210 GOTO 1190 
1220 ’ choix du plus 
1230 FOR 1=1 TO x 

1240 IF tb(l)=7 OR tb(l)=19 OR <tb(l)=31 AND flagdfjou)=31) OR (tb(l)=43 AND flagm(jou>=43) OR tb(l)=55 THEN 1260 
1250 NEXT.’RETURN 

1260 IF c(jou,(tbd)+l))=0 OR c(jeu,(tbÜHl) 1+2 Osomde THEN deci^'M^chaix^bdXRETURN 
1270 GOTO 1250 

1280 ’ choix d’un coup simple pour une égalité 
1290 FOR 1=1 TO x 

1300 IF tir=l AND tbd)>0 AND tb(I)<7 THEN 1340 
1310 IF tir=2 AND tbü>>12 AND tb(l><19 THEN 1340 

1320 IF tir=3 AND Xtbü)>24 AND tb(lX31) OR itb(l>>36 AND tb(l)<43) OR (tb(l)>48 AND tbü)<55)> THEN 1340 
1330 NEXT i : RETURN 

1340 IF tbü) MOD 6=cc OR (tb(l) MOD -6=0 AND cc=6) THEN deci^'M*:choix=tb(l)‘-RETURN 
1350 GOTO 1330 

1360 ' retirage en fonction des coups simples possibles 
1370 FOR 1=1 Tû x 

1380 IF tir=l AND tb(l)>12 AND tb(l)<19 THEN 1410 

1390 IF (tb(l)>24 AND fcbl 1X31) OR ltb(l»36 AND tb(l)<43> OR (tbd»48 AND tb(l)<55) THEN 1410 

1400 NEXT:RETURN 

1410 IF tb(l) MOD 6=vde2 OR (tb(l) MOD 6=0 AND vde2=6) THEN 1440:’retirer vdel 

1420 1F tb(l) MOD 6=vdel OR (tb(l) MOD 6=0 AND vdel=6> THEN 146Q:’retirer vde2 

1430 GOTO 1400 

1440 FOR iîfI TO 5:1F dt(m)=vdel THEN dr(®)=l 

1450 NEXT m:decit= , T*:RETURN 

1460 FOR m=l TO 5:IF dt(m)Ovdel THEN dr(m)=l 

1470 NEXT m:decit='T":RETURN 

1480 ’ choix de la rayure 

1490 FOR 1=1 TO 60:1F c<jou,ray(1))=0 THEN 1510 

1500 NEXT 

1510 IF(ray(l)>24 AND ray(l)<37) AND flagd(jou)Orayd) THEN 1500 
1520 IF(rayd)>36 AND ray(l)<49) AND flagra<jou)Oray(l) THEN 1500 
1530 choix=ray(l):RETURN 
.1540 'choix d’un carre 
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1550 FOR 1=1 T0 x 

1560 IF tir=i AND tb( 11=11 THEN deciî^M" :chai;<=tb(l>:RETURN 
1570 ÎF tir=2 AND tb(l>=23 THEN deci$=“M*:choix=tb( 1 >:RETURî>i 
1530 ÎF tir=3 AND tb(î) MOD 12=1! THEN deci$= , M“:choix=tbü):RETUSN 
1590 NEXTîRETURN 
160D.’ choix d’un yam 

1610 FOR 1=1 TO *:IF tb(l)=12 OR tb(l)=24 OR tb(l)=36 OR tb( 11=48 OR tb(l)=60 THEN deci$="M*:choix=tb( 1 ):RETURN 
1620 NEXT:RETURN 

1630 ' affichage du retirage de 1’AMSTRAD 
1640 LCCATE #5,5,3:PRINT #5,"Je retire "i 
1650 FOR 1=1 TO 5ÜF dr(l)=l THEN PRÎNT #5,dt(l)i 
1660 NEXT 

1670 FOR 1=1 TO 2000:NEXT 
1680 RETURN 

1690 ’ retirage en fonction d’une figure possible 
1700 ON nel GOTO 1780,2230,2440 
1710 ’ ne1=0 
1720 FOR 1=1 TO x 

1730 IF tir=l AND tb<11=22 THEN 1760 

1740 IF tb(11=34 OR tb(l>=46 OR tb<li=58 THEN 1760 

1750 NEXTîRETURN 

1760 deci$= , T":F0R 1=1 TO 5ÜF dt(l)=l THEN dr(ll=l 
1770 NEXTîRETURN 
1780 ’nel=l 

1790 ON ne2 GOTO 1960,2120 
1800 ’ ne2=0 
1810 FOR 1=1 TO x 

1820 IF (tir=l AND tbü) MOD 12=9 Ah® tbtl)<>9) OR (tir=l AND tb(l) MOD 12=9 AND tb( 1)021) THEN 1910 
1830 NEXTîFOR 1=1 TO x 

1840 IF (tir=l AND tb(l) MOD 12=10.AND tb(l)OlO) OR !tir=l AND tb(l) MOD 12=10 AND tb(l)<>22) THEN 1930 

1850 NEXT 

1860 FOR 1=1 TO x 

1870 IF tir>l THEN 1890 

1380 1F (tbll) MOD 12 =11 AND tb(l> Oll) OR (tb(l) MOD 12=0 AND tb(l)012) THEN 1910 
1890 IF (tb(l) MOD 12 =11 AND tbü) 023) OR (tb(l) MOD 12=0 AND tbil)024) THEN 1910 
1900 NEXTîRETURN 

1910 deci*= , T , :FOR 1=1 TO 5ÜF dtüJOvdel THEN dr(l)=l 
1920 NEXTîRETURN 

1930 IF dt(l)=6 AND dt(5)=l THEN 1860 

1940 deci$= , T":FOR 1=1 TO 5:IF dt(l)=vdel THEN dr(1)=1 :RETUW4 

1950 NEXT 

1960 1 ne2=l 

1970 FOR 1=1 TO x 

1980 IF tir=l AND tbü) MOD 12=9 AND tb(l)<>9 THEN 2050 

1990 1F tir> 1 AND tbü) MOD 12=9 AND tb(l)021 THEN 2050 

2000 NEXT 1 
2010 FOR 1=1 TO x 

2020 IF tir=l AND (tbü) MOD 12=11 AND tb(l)Oll) OR (tbü) MOD 12=0 AND tb!lX>12) THEN 2070 

2030 IF tir=l AND (tbü) MOD 12=11 AND tb(l)<>23) OR (tbü) MOD 12=0 AND tb(l><>24) THEN 2070 

2040 NEXT l:RETURN 

2050 deci$="T‘:FûR 1=1 TO 5:IF dtüJOvdel AND dt(l)Ovde2 THEN dr(l)=l 
2060 NEXTîRETURN 

2070 deci$= , T*:IF vdel>vde2 THEN 2100 
2080 FOR 1=1 TO 5ïIF dt(l)=vdel THEN dr(l)=l 
2090 NEXTîRETURN 

2100 FOR 1=1 TO 5ïIF dt(l)=vde2 THEN dr(l)=l 

2110 NEXTîRETURN 

2120 1 ne2=2 

2130 FOR 1=1 TO x 

2140 1F tir>l THEN 2160 

2150 IF itbll) MOD 12=11 AND tbüKMl) OR (tbü! MOD 12=0 AND tb(lX>12) THEN 2180 
2160 IF (tbü) MOD 12=11 AND tb(l)<>23) OR (tbü) MOD 12=0 AND tb(l)<>24) THEN 2180 
2170 NEXTîRETURN 

2180 deci$= , T":IF vde2<3 AND vde2>vdel THEN 2210 
2190 FOR 1=1 TO 5:IF dttl)Ovde2 THEN drü)=l 
2200 NEXTîRETURN 

2210 FOR 1=1 TO 5:IF dtüJOvdel THEN dr(l)=l 

2220 NEXTîRETURN 

2230 ’ nel=2 

2240 IF ne2=l THEN 2330 

2250 ’ne2=0 

2260 FOR 1=1 TO x 

2270 IF tir)l THEN 2290 

2280 ÎF (tbü) MOD 12=11 AND tbüKMl) OR (tbü) MOD 12=0 AND tb(l)012) THEN 2310 
2290 IF (tbü) MOD 12=11 AND tb(l)<>23) OR (tbü) MOD 12=0 AND tb(l)024) THEN 2310 
2300 NEXTîRETURN 

2310 deci$="T*:FOR 1=1 TO 5:IF dtüJOvdel THEN dr(l)=l 
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2320 NEXT:RETURN 
2330 ’ne2=l 
2340 FOR 1=1 TÛ x 
2350 IF tir>l THEN 2370 

2360 IF (tb(l) MOD 12=11 AND tbUKMl) OR (tb(l) MOD 12=0 AND tb( 1)012) THEN 2390 

2370 IF (tb(l) MOD 12=11 AND tb< 1)023) OR (tb(l) MOD 12=0 AND tb(l)024) THEN 2390 

2380'NEXT:RETURN 

2390 deci$=*T , :lF vdel<3 AND vdei>=vde2 THEN 2420 
2400 FOR 1=1 TO 5 : IF dt(l)Ovdel THEN dr(l)=l 
2410 NEXT:RETURN 

2420 FOR 1=1 TO 5:IF dt(l)Ovde2 THEN dr(l)=l 
2430 NEXT:RETURN 
2440 ’ nel=3 
2450 FOR 1=1 TO x 

2460 IF tir=l AND itb(l) MOD 12=11 AND tbUKMl) OR (tbü) MOD 12=0 AND tb(l)Ol2> THEN 2490 

2470 IF tir=l AND itb(l) MOD 12=11 AND tb(l)<>23) OR (tb(l) MOD 12=0 AND tb( 1)024) THEN 2490 

2480 NEXT:RETURN 

2490 ded$=‘T":FOR 1=1 TO 5:IF dt<l)Ovdel THEN dr(l)=l 
2500 NEXT:RETURN 

2510 ’====fonction he 1 p========= 

2520 IF help=l THEN 2560 

2530 IF decit='T* THEN GOSUB Î630:GOTO 210 

2540 IF deci$=*M' THEN 3070 

2550 IF deci$='R* THEN 3070 

2560 LOCATE #5,5,5:PRINT #5,'Vous devriez *5 

2570 IF deci$='T' THEN PRINT #5,'retirer* 

2560 IF deci$=’M* THEN PRINT #5,'marquer' 

2590 IF deci*='R' THEN PRINT #5,'raüer’ 

2600 LOCATE #5,5,6 

2610 IF decit='M‘ OR decil=*R" THEN 2640 

2620 FOR 1=1 TO 5:IF dr(l)=l THEN PRINT #5,dt(l); 

2630 NEXT:GOTO 2670 

2640 ii=choix MOD 12:IF ii=D THEN ii=12 

2650 gg2$=MID*(po2$,ii,l):ii=INT((choix-l)/12)+l:ggl$=MID$(polt,ii,l) 

2660 PRINT #5,'le 'îgg2$î' en "jggiî 
2670 FOR 1=1 TO 3500:NEXT:help=0:GOTO 3840 
2680 ’=======tirâge des des========= 

2690 tir=tir+l 

2700 FOR 1=1 TO 5:IF dr(l)=l THEN RANDOMIZE <TIME*100):dt(l)=INT!RND*6)+l:F0R m=l TO 100:NEXT i»:NEXT 1 
2710 GOSUB 2930 

2720 CLS #4:L0CATE #4,2,2:GOSUB 5610:PR1NT #4,'TIRAGE 'itir;' : ';dt(1);' ';dt(2);' 'ïdt(3)?* 'idt(4);‘ ';dt(5) 

2730 ’tri par ordre décroissant 

2740 FOR 1=1 TO 4:F0R m=l+l TO 5 

2750 IF dt (m)>dt( 1 ) THEN aa=dt ( 1 ) : dt ( 1 )=dt(m) : dt (m )=aa. 

2760 NEXT m.’NEXT 1 
2770 'calcul des égalités de type 1 
2780 ne1=0 :ne2=0:vde1=0:vde2=0:1=1 
2790 FOR m=l+l TO 5 

2800 IF dt<m)=dt(1) THEN nel=nel+l:vdel=dt(a) 

2810 NEXT 

2820 IF ne1=0 AND 1<4 THEN l=l+i:GOTO 2790 
2830 IF nel=0 OR nel>=3 THEN 2900 
2840 'calcul des égalités de type 2 
2850 FOR m=l+l TO 5 

2860 IF dt(m)=dt(l) AND dt(m)Ovdel THEN ne2=ne2+l:vde2=dt(m) 

2870 NEXT 

2880 IF ne2=0 AND 1<4 THEN 1=1+1 .'GOTO 2850 
2890 IF ne2=0 AND 1=3 THEN 1=4:G0T0 2860 
2900 somde=dt(1)+dt(2)+dt(3)+dt(4)+dt < 5) 

2910 dr(l)=0:dr(2)=0:dr(3)=0:dr(4)=0:dr(5)=0 
2920 RETURN 

2930 'liste des coups possibles 

2940 x=l:F0R 1=1 TO 38:tb<1)=0:NEXT 

2950 ON tir GOTO 2960,2990,3010 

2960 FOR 1=1 TO 24:IF c(jou,l)=0 THEN tb(x)=l:x=x+l 

2970 NEXT 

2980 GOTO 3010 

2990 FOR 1=13 TO 24ÜF c<jou, 1)=0 THEN tb(x)=l:.x=x+l 
3000 NEXT 

3010 FOR 1=25 TO 36:IF c(jou,1)=Q AND flagd(jou)=l THEN tb(x)=l:x=x+l 
3020 NEXT 

3030 FOR 1=37 TO 48:IF c(jou,1)=0 AND flagm(jou)=l THEN tb(x)=l:x=x+l 
3040 NEXT 

3050 FOR 1=49 TO 60:IF c(jou,l)=0 THEN tb(x)=l:x-x+l 
3060 NEXT:RETURN 

3070 ’===calcul de la marque======= 

.3080 IF choix>24 AND choix<37 THEN flagdljou)=flagd(jou)+l 
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3090 IF choix>36 AND chaix<49 THEN flagm(jou)=flagm!jou)-l 

I 3100 IF deci$=‘R' THEN 3170 i 

3110 IF choix<7 OR !choix>12 AND choix<19) OR ichoix>24 AND choix<31) OR <choix>36 AND choix<43) OR (choix>48 AND choix<55) THEN 320 
0 

3120 IF choix MOD 12=7 OR choix MOD 12 =8 THEN 3230 
! 3130 IF choix MOD 12=9 THEN 3250 

3140 IF choix MOD 12=10 THEN 3270 1 

3150 IF choix MOD 12=11 THEN 3300 
3160 GOTO 3320:’yam 

3170 IF choix MOD 12=7 THEN 3350 1 

3180 IF choix MOD 12=8 THEN 3380 . 

3190 GOTO 3410:’tous les autres 
3200 'les coups simples 

3210 somde=0:F0R 1=1 TO 5":IF choix MOD 12=dt(l) THEN somde=sonde+dt(l) ! i 

3220 NEXT!c(joU)Choix)=somde:60T0 3430 

3230 ’le plus ou le moins 

3240 c(joU)Choix)=somde:GQTO 3430 

3250 ’le fool I ( 

3260 djau,choix)=somde+20:G0T0 3430 
3270 'la suite 

3280 IF somde=15 THEN djou,choix)=45:G0T0 3430 

I 3290 c(jou,choixi=60:GOTO 3430 l( 

3300 ’le carre 

3310 djou,chcnxl=vdel*4+30:50T0 3430 
3320 ’le yam 

J 3330 djou, choix )=somde+40: GOTO 3430 _ I < 

3340 'la rayure 
3350 ’le plus 

3360 djou,choix)=99:svd jou)=djou,choix+1):djou,choix+l>=99:IF choix=31 THEN flagdljou)=33 

3370 GOTO 3490 i 

3380 ’le moins 

3390 d jou,choix)=99:svdjou)=djou,chaix-l):djou,choix-l)=99:IF choix=44 THEN flagmfjou)=42 
3400 GOTO 3490 

3410 'les autres ; 

3420 c(jouichoix)=99: GOTO 3490 

3430 'affichage de la marque 

3440 IF jou=l AND amstrad=l THEN 3460 

3450 LOCATE #5,20,6:PRINT #5,'SOIT * îc< jou^choix) î“ POINTS" :G0T0 3550 i 

3460 ii=choix MOD 12:IF ii=0 THEN ii=12 

3470 gg2$=MIC$(po2$,iiil):ii=lNTUchoix-l)/12)+l:ggll=MID*ipolt,ii,l) 

3480 LOCATE #5,5,3:PRINT #5,"Je marque le “)gg2»ï* en "iggltiLOCATE #5,8,6:PRINT #5,“SOIT * ;d jou, choix) i“ POINTS*:G0T0 3550 

3490 'affichage de la rayure I 

3500 IF jou=l AND amstrad=l TIEN 3520 

3510 LOCATE #5,5,6:FRINT #5,'D’ACCORD, C’EST RAYE*:GOTO 3550 

3520 ii=choix MOD 12:IF ii=0 THEN ii=12 

3530 gg2$=MID*(po2t,ii,ll:ii=INT((choix-l1/121+1:ggll=MID$(pol*,ii,l) , 

3540 LOCATE #5,5,3:PRINT #5,“Je raye le ";gg2$i* en "igglî:60T0 3550 

3550 'totaux par colonnes 

3560 FOR k=0 TO 4 

3570 dd=12*k 

3580 IF c(jou,61+b)<>Q THEN 3680 

3590 FOR 1=1 TO 6:!F djou,dd+l)=0 THEN 3750 

3600 NEXT 1 ! 

3610 FOR m=l TO 6:IF c(jou,dd+ml=99 THEN 3630 
3620 djou,61+k)=djou,61+k)+c(jou,dd+in) 

3630 NEXT m 

3640 IF djou,61+k)>=80 THEN d j ou, 66+k ) =c( j ou, 61 +k ! +2 : GOTO 3680 
3650 IF djou,61+k)>=70 THEN djou,66+k)=c(jou,61+k 1+30:GOTO 3680 
3660 IF djou,61+k)>=60 THEN c(jou,66+k)=djou,61+k 1+20:GOTO 3680 
3670 djou,66+k)=c(jou,61+k) 

3680 IF c(jou,71+k)ÜO THEN 3750 

3690 FOR 1=7 TO 12:1F djou,dd+l)=0 TIEN 3750 

3700 NEXT 1 

3710 djou,71+k)=djou,66+k) 

3720 FOR m=7 TO 12:IF c(jou,dd+m)=99 THEN 3740 

3730 djau,71+k)=c(jou,71+k)+c(jou,dd+m) , 

3740 NEXT m 
3750 NEXT k 

3760 IF djou,71)00 AND djou,72)00 AND djou,73)00 AND djou,74)00 AND djou,75)00 THEN finjou(jou)=l 
3770 djou,76)=c( jou,71)*3:djau,77)=c(jcu,72)*2:c(jou,78)=djoù,73) 

3780 djau,79)=djou,74):djciu,80)=djou,75) 

3790 djau,81)=djou,76)+djau,77)+c(jou,78)+c(jou,79)+djou,80) 

3800 GOTO 5970 

3910 * =-==--— -==jeu du joueur==== 

3820 CLB #1:G0SUB 4930 
3830 GOSUB 2680 
3840 CLS #5 : CLS #6 
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3850 LOCATE #5,5,1:PRINT #5,"Que faites vous ? "i 
3860 deci$=UPPER*(INKEYI): IF deci*="" THEN 3860 
3870 IF deci$="T" THEN PRINT #5,'T“:GÛSUE 3940:GOTO 3950 

3880 IF deci*='M" THEN PRINT #5, , n*s60SÜB 3940:60T0 4140 

3890 IF decit="R" THEN PRINT #5,"R":G0S'JB 3940:S0T0 4140 

3900 IF deci$="C* THEN PRINT #5,"C*:G0T0 4780 

3910'IF deci*="A" THEN PRINT #5,"A":G0SUB 3940:G0T0 4910 

3920 IF deci$="H" THEN PRINT #5,"H":GOSUB 3940:help=l:LOCATE #5,5,2:PRINT #5,“Je réfléchis...’:GOTO 230 
3930 GOTO 3860 

3940 svdt(l)=dt(l):5vdt(2)=dt<2):svdti3)=dt!3):svdt(4>=dt(4):svdt(5)=dti5):svdecit=decii:svjQu=jQu:5vtir=tir:RETURNi 
395D 'retirage des des 

3960 IF tir=3 THEN GOSUB 5640:CLS *6:PRINT #6,"IMPOSSIBLE, C'EST DEJA LE TIRAGE 3’:F0R 1=1 TO 2500:NEXT:GOTO 3840 
3970 LOCATE #5,5,3:PRINT #5,"Quels des retirez vous ?':LOCATE #5,5,4:PRINT#5,"tous:9-valid.:<ENTER>-erreur:curseur G" 

3980 1=1:LOCATE #5,5,6 

3990 decil=INKEYt:IF decit=” THEN 3990 

4000 1F deci$=CHR$(13> THEN A07Q:’return 

4010 IF deci$=CHRf(242) THEN LOCATE #5,5,6:PRINT #5,SPC(20):FOR 1=1 TO 4:ff(1)=0:NEXT:G0T0 3980:’curseur G 
4020 IF'deci$="9‘ THEN dr(li=l:dr(2)=l:dr(3)=l:dr(4)=l:dr!5)=l:G0T0 3830 
4030 IF ASC(deci*)<49 OR ASC(deci*)>54 THEN 3990 
4040 IF 1=5 THEN 3990 

4050 ff(1)=VAL(deci$):PRINT #5,ff(1)ï : 1=1+1 

4060 GOTO 3990 

4070 'validation 

4080 FOR n=l TO 1-1 

4090 FOR m=l TO 5 

4100 1F ff(n)=dt(m) AND dr(m)=Q THEN dr(ro)=l:GOTO 4120 

4110 NEXT m 

4120 NEXT n 

4130 GOTO 3830 

4140 'marque ou rayure 

4150 IF deci$='R* THEN LOCATE #5,5,3:PRINT #5,’Quelle case rayez vous ?':GÛTO 4170 
4160 LOCATE #5,5,3:PRINT #5,"Quelle case marquez vous ?" 

4170 LOCATE #5,5,4:PRINT #5,"valid.:<ENTER>-erreur:curseur G" 

4180 GOSUB 4570 

4190 'calcul de la variable tb 

4200 FOR 1=0 TO 4:IF MID*(pal*,(1+1),1>=ggl* THEN 4220 

4210 NEXT 

4220 FOR m=l TO 12:IF MID*(po2î,m,l)=gg2$ THEN 4240 
4230 NEXT 

4240 choix=(l*12)+m:svchoix=chûix 
4250 'vérification de la légalité du coup 

4260 IF c(jou,choix)=99 THEN GOSUB 5640:CLS #6:PRINT #6,"IMPOSSIBLE, CETTE CASE EST DEJA RAYEE":F0R 1=1 TO 25Q0:NEXT:G0T0 3840 
4270 IF c(jou,choix)>0 THEN GOSUB 5640:CLS #6:PRINT #6,"IMPOSSIBLE, CETTE CASE EST DEJA REMPLIE":FOR 1=1 TO 25ÛO:NEXT:GOTO 3840 
4280 IF (ehoix>36 AND choix<49) AND f lagiru jou)Ochoix THEN GOSUB 5640:CLS #6:PR1NT #6, "IMPOSSIBLE, VOUS N'ETES PAS ENCORE A CETTE CA 
SE*:FOR 1=1 TO 2500:NEXT:GOTO 3840 

4290 IF ichoix>24 AND choix<37i AND flagdîjoulOchoix THEN GOSUB 5640:CLS #6:PRINT #6, "IMPOSSIBLE, VOUS N'ETES PAS ENCORE A CETTE CA 
SE":FOR 1=1 TO 250G:NEXT:G0T0 3840 

4300 IF deci$=’R" THEN 3070 ' „ 

4310 FOR n=l TO x:IF choix=tb(n) THEN 4340 
4320 NEXT 

4330 GOSUB 564Q:CLS #6:PRINT #6,"IMPOSSIBLE,C’EST DEJA LE TIRAGE ";tir:FOR 1=1 TO 25DO:NEXT:GOTO 3840 
4340 ON m GOTO 4350,4350,435D,4350,4350,4350,4390,4420,4450,4480,4510,4540 
4350 'les coups simples 
4360 FOR n=l TO 5:IF dtin!=m THEN 3070 
1 4370 NEXT 

4380 GOSUB 5640:CLS #6:PRINT #6,"IMPOSSIBLE. VOUS N’AVEZ PAS DE ";m:FOR 1=1 TO 2500:NEXT:GOTO 3840 
4390 'le plus 

4400 IF 5ümde>=23 AND smi de.--=c(jou, choix+1 )+2 THEN 3070 

4410 GOSUB 5640:CLS #6:PRINT #6,"IMPOSSIBLE, LE TIRAGE EST INSUFFISANT":FOR 1=1 TO 2500:NEXT:GOTO $40 
4420 'le moins 

4430 IF soode>=21 AND (somde<=c!jou,choix-l)-2 OR c(jou,choix-l)=0) THEN 3070 

4440 GOSUB 5640:CLS I6:PRINT #6,"IMPOSSIBLE, LE TIRAGE NE CONVIENT PAS":FOR 1=1 TO 25Q0:NEXT:GÛT0 3840 
4450 'le fool 

4460 IF (nel=l AND ne2=2) OR (nel=2 AND ne2=l> OR nel=4 THEN 3070 

4470 GOSUB 5640:CLS #6:PRINT #6,"IMPOSSIBLE, VOUS N’AVEZ PAS UN FOOL":FOR 1=1 TO 2500:NEXT:GOTO 3840 
4480 'la suite 

4490 IF somde=15 OR somde=20 THEN 3070 

4500 GOSUB 5640:CLS #6:PRINT #6,"IMPOSSIBLE, VOUS N’AVEZ PAS UNE SUITE":FOR 1=1 TO 2500:NEXT:GOTO 3840 
4510 ’îe carre 

4520 IF ne1=3 OR nel=4 THEN 3070 

4530 GOSUB 5640:CLS #6:PRINT #6,"IMPOSSIBLE, VOUS N’AVEZ PAS UN CARRE":FOR 1=1 TO 2500:NEXT:GOTO 3840 

4540 'le yam 

4550 IF ne1=4 THEN 3070 

4560 GOSUB 5640:CLS #6:PRINT #6,"IMPOSSIBLE, VOUS N’AVEZ PAS UN YAM":FOR 1=1 TO 2500:NEXT:GOTO 3840 

4570 'sous programme d'affichage 

4580 LOCATE #5,5,6:PRINT #5,"le en ":LOCATE #5,8,6 

4590 dc$=UPPER$iIMtEY*):1F drt="" THEN 4590 
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4600 IF ASC(dc*»48 AND ASC (de* ><55 THEN gg2$=dc$:PRINT #5,gg2$:G0T0 46B0 
4610 IF dc$="+* THEN PRINT #5,dct:gg2$=dc$:G0TQ 4600 
4620 IF dc$=*-’ THEN PRINT #5 t dc*îgg2»=dc*:G0T0 4680 
4630 IF dc*='F" THEN PRINT #5,dc$:gg2*=dc*:G0T0 4680 
4640 IF dc*=*S’ THEN PRINT.#5,dc$:gg2î=dcü:GOTO 4680 
4650 IF‘dc$=*C" THEN PRINT #5,dcî:gg2*=dc$:50T0 4680 
4660 IF dc$=*V THEN PRINT #5,dc$:gg2*=dc*:GOTO 4630 
| 4670 50T0 4590 
4680 LOCALE #5,13,6 

4690 dct=UPPER*HNKEY*):IF dc$="“ THEN 4690 

4700 IF dc$=CHR*(242) AND POS(#55>7 THEN LOCATE #5,8,6:PRINT 15," ":LOCATE #5,S3,6:PRINT #5," * :LOCALE #5,8,6:S0T0 4590 
| 4710 IF dc$=CHR$(13) THEN RETURN 
I 4720 IF dc$=*l" THEN PRINT #5,dc*îggî$=dc$:50T0 4690 
4730 IF dc*="2" THEN PRINT #5,dc$:ggi$=dc*:50T0 4690 
' 4740 IF dc$='M" THEN PRINT #5,dc$:ggl$=dc*:50T0 4690 
4750 IF cc*="D* THEN FRINT t5,dc*:ggl$=dc*:G0T0 4690 
4760 IF dc$="I" THEN PRINT #5,dc$:ggl*=dct:GOTO 4690 
4770 GOTO 4690 

4730 'annulation de la commande precedente 
4790 IF jou=2 AND amstrad=l THEN saut=l 

. 4300 tir=svtir:dt(l)=svdt!l)!dt(2)=svdt(2):dt(3)=5vdt(3):dt(4)=svdt(4):dt(5)=svdt(5) 

4810 IF svdeci*=*T* THEN GOSUB 2710:G0T0 3840 
, 4820 IF svdeciï=.'M" OR svdeci$="R" THEN jau=svjou:choix=svchoix 
j 4830 IF svdeci*= , M" THEN c(jou,choix>=Q:60SUB 4930:GOSUB 2710:G0T0 3840 
, 4840 IF svdeci*=’A" THEN jou=svjou:finjou(jou)=0:G0SUB 4930:G0SUÎ. 2710:G0T0 3840 
; 4850 IF svdeci*="C* THEN 3840 
| 4860 ’svdeci$=*R‘ 

4870 IF choix NOD 12 =7 THEN c(jou,choix)=0:c(jou,choix+l)=svc(jou):50SUB 4930:GOSUB 2710:G0T0 3840 
; 4830 IF choix MOD 12=8 THEN c(jou,choix)=0:c<jou,choix-l)=svc(jou):GOSUB 4930:GOSUB 271O:G0T0 3840 
i 4890 'autre cas 

| 4900 c(jou,choix)=0:G0SUB 4930:G0SUE 2710:GOTO 3840 
I 4910 'abandon 
' 4920 finjoutjou)=':G0T0 5970 
! 4930 ’====affichage permanent ===== 

| 4940 LOCATE #1,1,1 

, 4950 PRINT #l,TAE!4)iCHR$(149);JABÎ6)i"lC'iTAB(9)îCHR$(149)iTAB(ll); , 2C";TAB(14);CHRî(149>îTAB(17>;"D"îTAB(19>iCHR$(149)iTAB(22);"l1" 
1 ;TAB(24);CHR$(149);TAB<26)ï " IN" 

I 4960 PRINT #l,STRINut<28,154>; 

4970 PRINT #!," 1 ";CHRî!149);TAB(9i;CHR$(149ï;TAB!14>;CHR$(149)iTAE!I9);CHR$<149);TAB(24);CHR$(149) 

4980 PRINT #1," 2 ";CHRt(149>;TABi9!iCHR$(149);TABtl4)iCHR$(149);TABil9);CHR$(149);TAB!24);CHR*(149) 

4990 PRINT #1," 3 , ;CHRî(149);TAB(9!;CHR$(149);TAE!14);CHR$(149)iTAB(19);CHR$(149)lTAB(24);CHR$(149) 

I 5000 PRINT #1," 4 , ;CHR$(149)iTAB(9>;CHRî(149)iTAB(14);CHR$(I49);TAB(19)iCHR$(149)iTAB(24)iCHR$(I49) 

5010 PRINT #1," 5 *,CHRI(14îXiTAB(9!iCHRïî149);TAB(14);CHR$!149);TAB(19);CHR$(149);TAB(24);CHR$(149> 

5020 PRINT #1," 6 ‘ïCHR*<149)ïTAB19);CHR*<149);TAB<1A)ïCKR*{149);TAB<19)ïCHR*<149)îTAB<24)ïCHR*(149) 

5030 PRINT #1,STRING*(2B,154); 

5040 PRINT #1,'ST *;CHR$(149>;TAB(9);CHRï(149!;TAB<14);CHR*(149)îTAB(19);CHR*(149);TAB<24);CHRî(149) 

5050 PRINT #1,"TB ’îCHR*<14?);TAB(95jCHR*(149)ïTAB(14)ïCHR$<149)!TAB<19);CHR*(149)îTAB<24)iCHR*( 149) 

5060 PRINT #l,STRING$i28,154); 

5070 PRINT #1," + ";CHRî(149)îTAB(9!iCHR$(149);TABî14)îCHRtt149);TAB(19),CHR$(149)jTAB(24)iCHRti149) 

5080 PRINT #L»’ - , iCHR*(149)iTAB(9i;CHR$(149SiTAB(14)iCHR$(149)iTAB(19);CHRt(149)iTAB(24)iCHR$(149) 

5090 PRINT #1,STR1NG$(28,154); 

5100 PRINT #1," F ";CHR$(149!;TABi9)|CHR$(149);TAB(14);CHR$\149);TAB(19)îCHRI(149)îTAB(24)iCHR$(149) 

5110 PRINT il," S *4CHR*(149);TAB<9);CHR$! 149);TAE(14>;CHft*(149);TAB<19);CHR$(149>;TABt24);CHR$<149) 

5120 PRINT #1," C ■;CHR$il49!;TAB(9);CHR$il49);TAB(14);CHR$ü49)iTAB(19)iCHR$;i49);TAE(24)lCHR$(149) 

5130 PRINT #1,' V * ;CHR$(149);TAE<9);CHR$(149);TAB<14)}CHR$(149)îTAB(19);CHR$(149);TAB(24);CHR$(149) 

5140 PRINT il,STRINGî(28,154)i 

5150 PRINT il," I ';CHR$(149!;TAE19î;CHRt!149);TA8(14î;CHR$ü4?);TAB(19)iCHR$(149);TAB(24);CHR$<149) . 

5160 PRINT il,"TB 149)jTAB(9)iCHR$<i49);TABÏI4)îCHR$<149);TAB(19î;CHR$(149);TAB<24);CHR*(1A9) 

5170 dd=0:L0CATE #1,7,3 
1 5180 FOR 1=1 TO 6:FOR m=l TO 5 

I 5190 IF c<.jou,dd+l)OQ AND cijDu,dd+I)<>99 THEN LOCATE #1, <5*m), (2+1) :PRINT il.USING ■###" ic( jou,dd+1 ) ? :dd=dd+12:GCT0 5220 
5200 IF c<jou,dd+1 )=99 THEN LOCATE #1,<<5*n)+l),(2+1 )-’PRINT #l,CHRt(233);CHR*<233);:dd=dd+12:G0T0 5220 
: 5210 dd=dd+12 
5220 NEXT m:dd=0 
! 5230 NEXT 1 

ï 5240 dd=6Q 

! 5250 FOR 1=1 TO 2 

5260 FOR m=l TO 5 

5270 IF c(jau,dd+m)<>0 THEN LOCATE #1,<5*m),<9+1):PRINT #1,USING 
5280 NEXT m:dd=65 
5290 NEXT 1 
^ 5300 dd=6 

5310 FOR 1=1 TO 2 

5320 FOR m=l TO 5 

5330 IF c(jou,dd+l)<>0 AND c<Jou,dd+1)099 THEN LOCATE #l,(5*m),(12+l):PRINT #1,USING "###",■ c<jou,dd+l)ï:dd=dd+12:G0T0 5360 
5340 IF c(jou,dd+1)=99 THEN LOCATE #1,((5*®)+l>,(12+1)SPRINT *1,CHR*(233);CHR*(233>; :dd=dd+12:GOTO 5360 
| 5350 dd=dd+12 
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5360 NEXT m:dd=6 
> 5370 NEXT i 

5380 dd=8 
5390 FOR 1=1 T0 4 
5400 FOR ro=l T0 5 

5410 IF c(jou,dd+l)<>0 AND djou,dd+l)<>99 THEN LOCATE #1,(5*ir s ),(15+1)SPRINT #1,USING '###“ îdjou,dd+l);:dd=dd+12:G0T0 5440 

5420 IF djoui dd+l)=99 THEN LOCATE #1, ( (5*œXl), (15+1) :RRINT # 1, CHR$ ( 233 ) ï CHR* < 233 > ; : d d=d d+12 : GOTO 5440 

5430 dd=dd+12 

5440 NEXT nCdd=8 

5450 NEXT 1 

5460 dd=7Q 

5470 FOR 1=1 TO 2 

5480 FOR (6=1 TO 5 

5490 IF c(jou,dd+m)<>0 THEN LOCATE #1,(5*m),(2Q+1XPRINT #1,USING •#*#■ïc<jou.dd+œ»i 
5500 NEXT ra:dd=75iNEXT 1 

5510 CLS #2:LOCATE #2,2,1:PRINT #2,'C'est a *;nomjou*(jou)i* de jouer' 

5520 RETURN 

5530 'affichage des commandes 

5540 PRINT #3,' Tirer les des.......T* 

5550 PRINT #3," Marquer les des.M* 

5560 PRINT #3," Rayer une case.R' 

5570 PRINT #3)” Annuler la commande......C" 

5580 PRINT #3,' Abandonner..........A' 

5590 PRINT #3,' Help ’....,.H" 

5600 RETURN 

5610’ =======sonor i sa t i on========= 

5620 'tirage 

5630 FOR 1=1 TO 5:SOUND 1,son(1),10:NEXT:RETURN 
5640 'erreur 

5650 SOUND 1,1046,100:RETURN 

5460 ’=====initialisations===== 

5670 po2l=*123456+-FSCY":pol$='12DMI' 

5680 FOR 1=1 TO 5:flagm(l)=48:flagd(l)=25:NEXT 
5690 jou=l 

5700 FOR 1=1 TO 5:f injouü KÜNEXT 
5710 RESTORE:FOR 1=1 TO 6Q:READ ray!l):NEXT 
5720 FOR 1=1 TO 5:READ son(l):NEXT 
5730 RETURN 

5740 ’======inscription des joueurs====== 

5750 CLS:MODE 1 

5760 LOCATE #0,9,3:PRINT*INSCRIPTION DES JOUEURS' 

5770 LOCATE #0,l,5:PRINT*Voulez vous que je joue ? (0/N): «; 

5780 decil=UPPE RI(INKEYt) : IF deciî=" THEN 5780 

5790 PRINT decildF deci$="0” THEN amstrad=l:nomjout(l)=*AMSTRASUPER' , :svr,omjGul<l)="AMSTRASUPER' 

5800 jj=10:jou=l:«IND0U #1,1,40,18,19:WIND0W *2,1,40,22,23 

5810 LOCATE #0,5, jj : IF nonjouHjou)<>” THEN PRINT 'Joueur 'îjouî* ’;no«jaul(jou):jj=jj*i:jou=jou+l:nbjau=nbjou+l 
5820 IF jou=é THEN CLS SI :LOCATE #1,5,1:PRINT #1,"DESOLE,PAS PLUS DE 5':F0R 1=1 TO 2000:NEXT:G0SUB 589C:G0T0 6000 
5830 LOCATE #2,1,1:PRINT *2,"Tapez le nom du joueur et (ENTER),ou (ENTER) seul pour démarrer le jeu.' 

5840 CLS #1:L0CATE #1,5,1:PRINT #l,'Nom du joueur *;jou;:LINE INPUT #l,namjout(jou):notjoul(jou)=UPPER$(nomjoul(jou)):svnomjoul(jDu) 

» =nomjoul(jou) 

5850 IF LEN(nomjoui(jou))>12 THEN CLS #1:LOCATE *1,5,1:PRINT #1,'CE N’EST PAS POSSIBLE ":F0R 1=1 TO 1ÜQ0:NEXT:G0T0 5840 
5860 1F nomjoul(jou)=" THEN RETURN 
5870 GOTO 5810 
5880 RETURN 

5890 ’========dessin du cadre======= 

5900 MODE 2:CLS 

5910 FOR 1=1 TO 25:L0CATE 1,1:PRINT CHRI(127)ïTAB(30);CHRI<127î ïTAB(79);CHRt(i27>:NEXT 

5920 LOCATE 1,1: PRINT STRINGK3D, 127) :L0CATE 31,1: PRINT STRINGS ( 48,208 ) : LOCATE 31,3: PRINT STRINGK48,140) : LOCATE 30, IOïPRINT STRING! 
(49,127):LOCATE 30,14:PRINT STRING*(49,127) 

5930 LOCATE 30,21:PRINT STRING$(49,127)îLOCATE 1,24:PRINT STRINGI(79,127):PRINT STRINGK79,127):L0CATE 30,25:PRINT" YAM A 5 COLONNE 

S ' 

5940 HINDOU #1,2,29,2,23:UINDOW #2,31,78,2,2:WINDOW #3,31,78,4,9:WINDOW #4,31,78,11,13:WINDOW #5,31,78,15,20:UIND0W #6,31,78,22,23 
5950 GOSUB 5530 
5960 RETURN 

5970 ’====boucle de jeu========== 

5980 CLS #6îLOCATE #6,12,1 :PRINT #6,'<SPACE> pour continuer le jeu' * 

5990 IF INKEYI47X0 THEN 5990 

6000 jou=jou+l:IF jou>nbjou THEN jou=l 

6010 IF flagfinjeu=nbjou THEN 6070 

6020 IF saut=l THEN jou=jou+l:saut=0 

603Û IF finjou(jou)=l THEN flagfinjeu=f!agfinjeu+l:GOTO 6000 

6040 tir=0:dr(l)=l:dr(2)=l:dr(3)=l:dr(4)=l:dr(5)=l 

6050 IF jou=l THEN flagfinjeu=0:IF amstrad=l THEN 190 

6060 GOTO 3810 

6070 ’ ===== fin du jeu========= 

6080 MODE 1 

6090 LOCATE 10,1:PRINT'VOICI LES RESULTATS’ 
















CMffl ùi B WMM10 


* ! litetrLde 


I 6100 FOR 1=1 TO nbjou-ÜFOR m=l+l 10 nbjou 

I 6110 1F c(m,81)>c(I,81i THEN aa=c( 1.31):aa*=r,oiTijou*fl) :c( 1,81 )=c(jT(, SI):nc-mjou$( 1 )=nomjou$(m):c<m,81 }=aa:noirijau$(m)=aa$ 
6120 NEXT mîNEXT 1 
' 6130 POR 1=1 TO nbjou 

i | 6140 LOCATE 1,4+1:PRINT 1;* 'î no»jou* <1) iTAB(25) ïc( 1,81X ï“ points 5 

I 6150 NEXT 

6160 IF nomjoul(l)='AMSTRASUPER’ THEN LOCATE 2,16:PRINT'J’avoue pue je ne suis pas mécontent...’:GOTO 6180 
I 6170 LOCATE 5,16:PRINT”ERAVO ’inomjout(l);’ !’ 

» | 6180 LOCATE 5,18:PRINT’Une autre partie? (0/N)’ 

, 6190 CLEAR INPUT 

6200 deci*=UPPER<(INKEY$): IF deci$=“ THEN 6200 
I 6210 IF decit=’0* THEN 6230 
B | 6220 LOCATE 5,20:PRINT 5 Dommage...■«END 

. 6230 LOCATE 5i20:PRINT’Avec les menés joueurs? (O/N)" 

1 6240 decit=UPPER$( INKEYI): IF decit=" THEN 6240 
I 6250 IF deci$=’Q’ THEN 6270 

* î 6260 CLSîGOTO 130 

• 6270 FOR 1=1 TO nbjou:finjau(l)=Q:na®jouï(l)=svftGmjoui(l):flag®(l!=48:flagd(l)=25:FOR ®=1 TO 91 
1 6280 c(l,m)=0:NEXT iîiîNEXT 1 
| 6290 jou=G:f1ag finj eu=0:GOSUE 5890:G0T0 6000 
^ | 6300 ’ =======data’ s======== 

w . 6310 DATA 48,49,25,26,27,28,29,30,42,41,40,39,38,37,44,31,50,51,52,53,54,46,34,12,56,55,33,47,35,45 
I 6320 DATA 36,24,43,32,57,58,59,13,1,14,15,16,17,18,2,3,4,5,6,20,19,22,21,23,8,7,10,9,11,60 
| 6330 DATA 1396,1567,1760,1975,2093 
^ I 6340 , =======regles du jeu================== 

9 6350 MODE 2:PRINT TAB( 34) i’REGLES DU JEU’:PR1NT TAE134);"_’:PRINT 

I 6360 PRINT’Le but de ce jeu de réflexion et de hasard est de réaliser avec 5 des et en 3’ 

| 6370 PRINT’tirages maximum, un certain nombre de figures. Celles ci sont reparties en’ 

^ , 6380 PRINT’colonnes, sur lesquelles s’exercent diverses contraintes:" 

9 1 6390 PRINT 


i 6400 PRINT’-Les figures de la colonne 1 ne peuvent etre réalisées qu’en 1 seul tirage.’ 

| 6410 PRINT’-Celles de la colonne 2 ne peuvent etre faites qu’en 2 coups maximum.’ 

, 6420 PRINT*-La colonne D doit etre remplie dans l’ordre en descendant.* 

6430 PRINT’-La colonne M doit etre remplie dans l’ordre en montant.’ 

I 6440 PRÎNT’-La colonne I est entièrement libre.’ 

| 6450 PRINT 

. 6460 PRINT’Si en 3 tirages le joueur n’a pu réaliser une des figures demandées, il doit’ 

' 6470 PRINT’rayer une case vide de son choix (celles des colonnes D et fl seront cependant* 

I 6430 PRINT’rayees dans l’ordre D ou H). La rayure du + ou du - annule ces 2 cases en’ 

| 6490 PRINT’meme temps. Une case rayee vaut 0 point.’ 

I 6500 PRINT’Les coups simples (de î a 6) bénéficient d’un bonus,, si leur total (ST! est* 

' 6510 PRINT’superieur ou égal a 60. Les points de la colonne 1 sont ensuite multiplies par 3‘ 

I 6520 FRINT’ceux de la colonne 2 par 2. Le vainqueur est celui qui a le total de points’ 
i 6530 PRINT'le plus eleve.’ 

6540 PRINT TAB(30);’<SPACE> pour continuer’ 

1 6550 CALL 4£B06:CLS 



6560 PRINT'FIGURE 

CONDITION EXIGEE 

VALEUR’ 


6570 PRINT 
6580 PRINT’1 

-2—3—4—5—6 

au moins 1 de de l'a 

somme des des correspondants 

• 

6590 PRINT’ 


valeur voulue" 



6600 PRINT’ 

le + 

somme des des >=23 

somme des des’ 


6610 PRINT’ 


et <= (isoins+2)' 



6620 PRINT’ 

le - 

somme des des' >=21 

somme des des’ 

• 

6630 PRINT’ 


et <= (plus-2)’ 



6640 PRINT’ 

le Fool 

2 des pareils + 3 

20 + somme des des" 


6650 PRINT’ 


des pareils* 



6660 PRINT’ 

la suite 

1-2-3-4-5 ou 

45 ou 60’ 

• 

6670 PRINT’ 


2-3-4-5-6 1 



6680 PRINT’ 

le carre 

4 des pareils 

30 + somme des des’ 


6690 PRINT’ 
6700 PRINT 

le yam 

5 des pareils 

40 + somme dès des’ 


^ I 6710 PRINT’Le programme autorise 5 joueurs, l’ordinateur peut etre l’un d’eux. Il sert’ 

| 6720 PRINT’d’arbitre, de comptable, et eœpeche la triche. On peut lui demander conseil (H)’ 
■ 6730 PRINT'Un joueur peut abandonner en cours de partie sans empecher les autres de’ 

1 6740 PRINT“continuer (A). On peut enfin revenir en arriéré en annulant la commande' 

£ I 6750 PRINT’precedente. Cette commande n’est active que quand la question 'que faites vous* 

| 6760 PRINT’est posee, donc au tour du joueur suivant. Le programme revient alors en’ 

.6770 PRINT'arriere, en sautant le tour de 1’AMSTRAD si celui ci était intercale.’ 

1 6780 PRINT TAE(30)î’<SPACE> pour continuer’ 


9 | 6790 CALL &BBQ6:CLS 

i 6800 PRINT'Pour corriger une erreur, on peut, selon les circonstances, utiliser le curseur' 
6810 PRINT'GAUCHE, demander l’execution d’un ordre illégal <ex. marquer une case déjà’ 

I 6820 PRINT’remplie) ou utiliser la commande C au tour du joueur suivant.' 

£ | 6830 PRINT 

,6840 PRINT Si vous desirez une démonstration, désignez l’ordinateur comme unique joueur.' 

1 6850 LOCATE 1,20:PRINT TAB(3Q)î’<SPACE> pour continuer’ 

I 6860 CALL &BB06:RETURN 








Pharaons 


IC as:PHARAONS ?ar C.JACQUET 
20 MODE 0 
30 INK 3,12 
40 INK 9,0 
50 INK 11,0 
60 INK 1,3 
70 INK 5,3 
S0 INK 13,3 
90 PAPER 3.-CL3 
100 HINDOU #1,1,20,1,10 
110 PAPER #2,7 
120 OLE#! 

130 c=5:x=250 ;y=l 50 :GOSUE 220 
140 c=l:x=450î y=200:5GSUB 220 
150 FRINT CHR$(23)iCHR$ü); 

160 FRINT CR»i'23)iCKSM0); 

170 LOCATE 3,25:PAPER Q:REN a^RINT'TAPEZ UNE TOUCHJ 
ISO WHILE 1NKEY$=" :WEND 
190 MODE lfCALL &BEFF :FAPER 0 
200 GOTO 410 

210 ’ DESSIN DES PYRAMIDES 
220 RESTORE 230 

230 DATA 40,47,56,40,47,56,0,71,0 
240 DATA 36,45,50,36,45,50,0,67,0 
250 DATA 40,47(56,40,47,56,0 
CcO DA= A 5a,45,4^,40,38 
270 FOR T=1 TO 30 
28C READ A 
290 SOUND 1,A,12 
330 NEXT 

310 PEN 14:FAPER OîLOCftTÊ 6,1 iPRir’LE JEU *:LÛCA7c 4 f 3:P ! 

320 iü=2C0 

330 FOR v=l TO ICO 
340 MOUE x-w/2,d~v 
350 DRAWS ut,0, c 
360 üFiir2 
370 NEXT v 
3S0 RETÜHN 
390 0.5:53502 410 
400 END 

410 MODE 2:PEN 5:LOCATE 36,3:F9INTVegle du jeu" 

420 LOCATE 3,6:PRINT"Dans le premier tableau,vais ée.rsz casser le plus de pierre en un, 
temps ii8ite.Au dexieme tableau vous devrez 
ratraper les coeurs et éviter les fléchés.” 

430 PRINT;PRINTsPRINT!?RINT:lNPiJT*vcular-vous entrez votre nom 

440 as : MODE 1 s LOCATE 20,15î FRINT* sonne chance* LOCATE 25,17: FRINT n $:F0R t=l TO iæO:NEXT 
450 CLSsffiSUP 46Û 

460 MODE 2SLCCATE 25,10:PEN 5:FRINT"tE SECRET DES PYRAMIDES”:FOR t=l TO 500:l€XT t 
470 MODE 1 680 LOCATE 7,3:PRINT CHR*( 143) 

480 FOR' T=1 TO 36 690 LOCATE 8,3:PRINT CHRÎÜ43) 

490 FRINT C9R$(143); 700 LOCATE 9,3:PRINT CHRÎÜ43) 

500 NEXT ' 710 LOCATE 10,3:PRINT CHR$(143) 

510 FOR T=1 TO 22 720 LOCATE 11,3:PRINT CHR$(143) 

523 FRINT CHR$S143i 730 LOCATE 12,3:PRINT CHR$(143) 

530 tvEXT 740 LOCATE 16,3:PRINT CHR*(143) 

540 FOR T=1 TO 36 750 LOCATE 17,3:PR1NT CHR$(143) 

550-FRINT CHRS(143)? 7ùÙ LOCATE 19,3:PRINT CHR$tl43) 

560 NEXT 770 LOCATE y,3:PRINT CHR$(143i 

570 X=0 780 LOCATE 22,3:PRINT CHRÎÜ43) 

580 FOR T=1 TO 23 790 LOCATE 23,3:PRINT CHR$(143> 

590 X=X+l:LOCATE 37,X:PRINT CHF;î(143) 800 LOCATE 24,3:PRINT CHR$(143) 

600 NEXT' 810 LOCATE 26,3:FRINT CHRÎU43) 

610 LOCATE 5,2:FRINT CHRK143) 820 LOCATE 30,3:PRINT CHR$(143) 

620 LOCATE 14,2:PRINT CHRï(143i 830 LOCATE 32,3:PRINT CHR$il43l 

630 LOCATE 19,2:PRINT CHR$>143) 840 LOCATE 34,3:PRINT CHR*(143) 

640 LOCATE 28,2:PRINT CHRK143) 850 LOCATE 35,3:PRINT CHRÎU43) 

650 LOCATE 32,2:PRINT CHRÎÜ43) 860 LOCATE 3,4:PRINT CHR$(143) 

640 LOCATE 3,3:PRINT CHR$<143) 370 LOCATE 12,4:PRINT CHR*Ü43) 

670 LOCATE 5,3:PRINT CHR$(143) 880 LOCATE 14,4:PRINT CHRf(143) 


PATIENCE, 
NOUS AVONS 
L'ÉTERNÎTÉ 


Voici un petit jeu de type 
“arcade” qui se décompose en 
deux parties. Au premier 
tableau, vous devrez en temps 
limité, faire disparaître le plus de 
pierres du labyrinthe. Pour cela, 
il suffit de passer dessus. Au 
deuxième tableau, votre tâche 
sera de reccueillir des objets 
tombant du ciel. Mais attention, 
tout dans la vie n’est tout bon... 
Vous devrez rattraper les cœurs 
en évitant soigneusement les 
flèches... 

Vous pouvez, pour jouer, utili¬ 
ser indifféremment les touches 
directionnelles (flèches curseur) 
ou un joystick. 

Bonne chance ! 

Charles Jacquet 


DES PHARAONS 


890 LOCATE 17,4:PRINT CHR$il43) 
900 LOCATE 19,4:PR1NT CHR«143) 
910 LOCATE 24,4:PRINT CHR4Ü43) 
920 LOCATE 26,4:PRINT CHR$(143) 
930 LOCATE 27,4:F'RINT CHR*(143> 
940 LOCATE 28,4:PRINT CHR$(143) 
950 LOCATE 29,4:PRINT CHR$!143) 
960 LOCATE 30,4:PRINT CHRIÜ43) 
970 LOCATE 34,4:PRINT CHR$(143) 
980 LOCATE 5,5:PRINT CHRÜU43) 
990 LOCATE 7,5:FRINT CHR$Ü43) 
1000 LOCATE 3,5!PRINT CHRf(143) 
1010 LOCATE 9,5SPRINT CHR$(143) 
1020 LOCATE 10,5:PRINT CHR$(143) 
1030 LOCATE 14,5:PRINT CHRJÜ43) 
1040 LOCATE 17,5:PRINT CHR$(143) 
1050 LOCATE 19,5:PRINT CHR$(143) 
1060 LOCATE 20,5:PR1NT CMR$(143) 
1070 LOCATE 22,5:PRINT CH»(143) 
1080 LOCATE 24,5:PRINT CHRK143) 
1090 LOCATE 28,5:PRINT CHR$(143) 













1100 LOCATE 
1110 LOCATE 
1120 LGCATE 
1130 LOCATE 
1140 LOCATE 
1150 LOCATE 
1160 LOCATE 
1170 LOCATE 
1180 LOCATE 
1190 LOCATE 
1200 LOCATE 
1210 LOCATE 
1220.LOCATE 
1230 LOCATE 
1240 LOCATE 
120 LOCATE 
1260 LOCATE 
1270 LOCATE 
1280 LOCATE 
1290 LOCATE 
1300 LOCATE 
1310 LOCATE 
1320 LOCATE 
1330 LOCATE 
1340 LOCATE 
1350 LOCATE 
1360 LOCATE 
1370 LOCATE 
1380 LOCATE 
1390 LOCATE 
1400 LOCATE 
1410 LOCATE 
1420 LOCATE 
1430 LOCATE 
1440 LOCATE 
1450 LOCATE 
146D LOCATE 
1470 LOCATE 
1480 LOCATE 
1490 LOCATE 
1500 LOCATE 
1510 LOCATE 
1520 LOCATE 
1530 LOCATE 
1540 LOCATE 
1550 LOCATE 
1560 LOCATE 
1570 LOCATE 
1580 LOCATE 
1590 LOCATE 
1600 LOCATE 
1610 LOCATE 
1620 LOCATE 
1630 LOCATE 
1640 LOCATE 
1650 LOCATE 
1660 LOCATE 
1670 LOCATE 
1680 LOCATE 
1690 LOCATE 
1700 LOCATE 
1710 LOCATE 
1720 LOCATE 
1730 LOCATE 
1740 LOCATE 
1750 LOCATE 
1760 LOCATE 
1770 LOCATE 
1780 LOCATE 
1790 LOCATE 
1800 LOCATE 
1810 LOCATE 


3G,5:PRINT CHRf!143) 
31,5:PRINT CHRÎÜ43) 
32,5:FRINT CHR$(143) 
34)5 : PRINT CHRf<143) 
2,6:PRINT CHRf(143) 
4,6:PRINT CHRÎÜ43) 
5,6:PRINT CHRf(143) 
12,6ÎPRINT CHRf(143) 
13,6:PRINT CHR$(143) 
14,6:FRINT CHRf(143) 
15,6:PRINT CHRf(143) 
17,6:PRINT CHRf(143) 
20,6:PRINT CHRf(143) 
22,6:PRINT CHRf(143) 
24,6:PRINT CHRf(143) 
2,6:PRINT CHRf(143) 
26,6:PRINT CHRf<143) 
‘29,6 : PRINT CHRf (143) 
5,7:PRINT CHR$Ü43) 
7,7:PRINT CHRf(143) 
6,7:PRINT CHRf(143) 
9,7:PRINT CHRf(143) 
17,7:PRINT CHRf(143) 
19,7:PRINT CHRf(143) 
20,7:PRINT CHRf(143) 
22,7:PRINT CHRf(143) 
2,7:PRINT CHRf(143) 

28.7 : PRINT CHRf(143) 
30,7:PRINT CHRt(143) 

31.7 : PR INT CHRf(143) 
33,7:PRINT CHRf(143) 
34,7:PRINT CHRtC143) 
35,7:PRINT CHRf(143) 
3,3:PRINT CHRf(143) 
8,8:PRINT CHRf(143) 
11,8:PRINT CHRf(143) 
12,3:PRINT CHRf(143) 
13,8:PRINT CHRf(143) 


14,8:PRINT CHR$<143> 
15,8:PRINT CHRf(143) 
17,8:PRINT CHRf(143) 
18,8:PRINT CHR$!143) 
20,8:PRINT CHRî(143) 
25,3:PRINT CHRf<143) 
28,8:PRINT CHRt(143) 
3,9:PRINT CHRf(143) 
B,9:PRINT CHRf(143) 
9,9:PRINT CHRf<143) 


11.9 

12.9 

17.9 

18.9 

20.9 

21.9 

22.9 

23.9 

2.9 

30.9 

31.9 

32.9 

33.9 

34.9 
2,10 

3.10 

4.10 
5,10: 

11,10:PRINT CHR$(143) 
12,10:PRINT CHR$il43> 
14,lO-'PRINT CHR$( 143) 
15,10:PRINT CHRf(143) 
16,lOîPRINT CHRf(143) 
17 ,IOîPRINT CHRf(143) 


PRINT CHRf(143) 
PRINT CHRf!143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 
PRINT CHRf(143) 


1320 LOCATE IB,IOîPRINT CHRf(143) 
1830 LOCATE 22,IOîPRINT CHRf(143) 
1840 LOCATE 23,IOîPRINT CHRf.143) 
1850 LOCATE 25,IOîPRINT CHRf(143) 
1860 LOCATE 27,10:PRINT CHRf(143) 
1870 LOCATE 29 ,IOîPRINT CHRf(143) 
1880 LOCATE 32,10:PRINT CHRf(143) 
1890 LOCATE 2«11:PR1NT CHRf(143) 
1900 LOCATE 3,11:PRINT CHRf(143) 
1910 LOCATE 4,11:PRINT CHRf(143) 
1920 LOCATE 5,11 SPRINT'CHRf(143) 
1930 LOCATE 7,llsRRINT CHRf(143) 
1940 LOCATE 9, ilîPRINT CKR$ll43> 
1950 LOCATE 10,11 SPRINT CHRf(143) 
1960 LOCATE 11,11:PRINT CHRf(143) 
1970 LOCATE 12,11 SPRINT CHRf<143) 
19S0 LOCATE 14,IlîPRINT CHRf(143) 
1990 LOCATE 15,11 SPRINT CHRf(143) 
2000 LOCATE 16,IlîPRINT CHRf(143) 
2010 LOCATE 17,11:PRINT CHRf(143) 
2020 LOCATE 18,11 SPRINT CHR$(143) 
2030 LOCATE 19,IlîPRINT CHRf<143) 
2040 LOCATE 22,IlîPRINT CHRf(143) 
2050 LOCATE 23,IlîPRINT CHRf(143) 
2060 LOCATE 31,11:PRINT CHRf!143) 
2070 LOCATE 32,11 SPRINT CHRf!143) 
2080 LOCATE'34,11 SPRINT CHRf(143) 
2090 LOCATE 35,IlîPRINT CHRf(143) 
2100 LOCATE 3,12:PRINT CHRf(143) 
2110 LOCATE 7,12:PRINT CHRf(143) 
2120 LOCATE 9,12:PRINT CHRf(143) 
2130 LOCATE 14,12:PRINT CHRf(143) 
2140 LOCATE 22,12:PRINT CHRf(143) 
2150 LOCATE 23,12:PRINT CHRf(143) 
2160 LOCATE 24,12:PRINT CHR$(143) 
2170 LOCATE 26,12:pRINT CHRf(143) 
2180 LOCATE 2S,12:PRINT CHRf(143) 
2190 LOCATE 3,13:PRINT CHRf(143) 
2200 LOCATE 6,13:FRINT CHRf(143) 
2210 LOCATE 5,13:PRINT CHRf(143) 
2220 LOCATE 7,13:PRINT CHR$(143) 
2230 LOCATE 9,13:PRINT CHRi(143) 
2240 LOCATE il,13:PRINT CHR$(143) 
2250 LOCATE 12,13:PRINT CHRf(143) 
2260 LOCATE 13,13:PRINT CHRf(143) 
2270 LOCATE 14,13:PRINT CHRf(1431 
2280 LOCATE 16,13:PRINT CHR$(Î43) 
2290 LOCATE 18,13:PRINT CHRf!143) 
2300 LOCATE 20,13:PRINT CHRf(143) 
2310 LOCATE 30,13:PRINT CHRf(143) 
232D LOCATE 31,13:FR1NT CHRf(143) 
2330 LOCATE 32,13:PRINT CHRf(143) 
2340 LOCATE 33,13:PRINT CHRf(143) 
2350 LOCATE 34,13:PRINT CHRfi143) 
2360 LOCATE 3,14:PRINT CHR$(143) 
2370 LOCATE 9,14:PRINT CHRf(143) 
2380 LOCATE 11,14:PRINT CHRf(143) 
2390 LOCATE 12,14:PRINT CHRf(143) 
2400 LOCATE 13,14:PRINT CHRf(143) 
2410 LOCATE 14,14:PRINT CHRf!143) 
2420 LOCATE 16,14:PRINT CHRf(143) 
2430 LOCATE 18,14:PRINT CHRf(143) 
2440 LOCATE 20,14:PR1NT CHRf(143) 
2450 LOCATE 22,14:PRINT CHR$(143) 
2460 LOCATE 23,14:PRINT CHRf(143) 
2470 LOCATE 24,14:PRINT CHRf(143) 
2480 LOCATE 26,14:PRINT CHRf(143) 
2490 LOCATE 28,14-*PRINT CHRf(143) 
2500 LOCATE 32,14ïPRINT CHRf(143) 
2510 LOCATE 3,15:PRINT CHRf(143) 
2520 LOCATE 4,15:PRINT CHRf!143) 
2530 LOCATE 6,15:PRINT CHRf(143) 


2540 LOCATE 7,15:PRINT CHRf(143) 
2550 LOCATE 3,15:PRINT CHRf(143) 
2560 LOCATE 9,15:PRINT CHR$(143) 
2570 LOCATE 16,15:PRINT CHRf(143) 
2580 LOCATE 18,15:PRINT CHRf!143) 
2590 LOCATE 20»15SPRINT CHRf 1143' 
2600 LOCATE 30,15:PRINT CHRf(143) 
2610 LOCATE 34,15:PRINT CHRf(143) 
2620 LOCATE 6,16:PRINT CHRf(143) 
2630 LOCATE 7,16:PRINT CHRt(143) 
2640 LOCATE 9,16:PRINT CHR$(143i 
2650 LOCATE 11,16:PRINT CHRf(143) 
2660 LOCATE 12,16:PRINT CHRf(143) 
2670 LOCATE 13,16:PRINT CHRf(143) 
2680 LOCATE 14,16:PRINT CHRf(143) 
2690 LOCATE 18,16:PRINT CHRf(143) 
2700 LOCATE 22,16:PRINT CHRf(143) 
2710 LOCATE 23,16:PRINT CHRf(143) 
2720 LOCATE 24,16:PRINT CHR$(143) 
2730 LOCATE 26,16:PRÎNT CHRf(143) 
2740 LOCATE 28,16:PRINT CHRf(143) 
2750 LOCATE 3G,16:PRINT CHRf(143) 
2760 LOCATE 31,16:PRINT CHRf(143) 
2770 LOCATE 32,16:PRINT CHRf(143/ 
2780 LOCATE 33,16:PRINT CHRf(143) 
2790 LOCATE 34,16:PRINT CHRî(143) 
2800 LOCATE 2,17:PRINT CHRf(143) 
2810 LOCATE 4,17:PRINT CHRf!143) 
2820 LOCATE 6,17:PRINT CHRt(143) 
2830 LOCATE 7,17:PRINT CHR$(143) 
2840 LOCATE U,17:PRINT CHRf(143) 
2850 LOCATE 12,17:PRINT CHRî(143) 
2860 LOCATE 13,17:PRINT CHRf(143) 
2870 LOCATE 14,17:PR1NT CHRf!143) 
2880 LOCATE 15,17:PR1NT CHRf(143) 
2890 LOCATE 16,17:PRINT CHRf!143) 
2900 LOCATE 17,17:PRINT CHRf(143) 
2910 LOCATE 18,17:PRINT CHRf!143) 
2920 LOCATE 19,17:PRINT CHRf!143) 
2930 LOCATE 20,17:PR!NT CHRf(143) 
2940 LOCATE 21,17:PRINT CHRf(143) 
2950 LOCATE 22,17:PRINT CHRf(143) 
2960 LOCATE 23,17:PRINT CHRf(143) 
2970 LOCATE 24,1?:PRINT CHRf(143) 
2980 LOCATE 26,17:PRINT CHRf(343) 
299G LOCATE 28,17:PRINT CHRf!143) 
3000 LOCATE 31,17SPRINT CHRf!143) 
3010 LOCATE 34,17:PR1NT CHR$(143) 
3020 LOCATE 2,18:PRINT CHRf(143) 
3030 LOCATE 3,18:PRINT CHRf<143) 
3040 LOCATE 4,18:PRINT CHRf(143) 
3050 LOCATE 6,18:PRINT CHRf(143) 
3060 LOCATE 7,18:PRINT CHRf(143) 
3070 LOC'ATE 8,18:PRINT CHR$(143) 
3080 LOCATE 10,18:PRINT CHRf!143) 
3090 LOCATE 11,18:PRINT CHRf:143) 
3100 LOCATE 12,18:PRINT CHRXÎ43) 
3110 LOCATE 13,13:PRINT CHRf!143) 
3120 LOCATE 15,18:PRINT CHRî(143) 
3130 LOCATE 31,IBîPRINT CHRf(143) 
3140 LOCATE 33,18:PRINT CHRf(143) 
3150 LOCATE 34,18:PRINT CHRî(143) 
3160 LOCATE 2,19:PRINT CHRt(143) 
3170 LOCATE 4,!9:PRINT CHRf(143) 
3180 LOCATE 8,Î9:PRINT CHRf(143) 
3190 LOCATE 10,19:PRINT CHRf(143) 
3200 LOCATE 11,19:PRINT CHRt(143) 
3210 LOCATE 12,19:PRINT CHRf!143) 
3220 LOCATE 13,19:PRINT CH»(143) 
3230 LOCATE 15,19:PRINT CHRf(143) 
3240 LOCATE 16,19:PRINT CHRf(143) 
3250 LOCATE 17,19:PRINT CHRf(143) 
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3260 LGC-ATE 22,19:FRINT CHR$( 143) 

3270 LOCALE 25,1?:PRINT CHRf'143> 

3250 LOCATE 2?,19ïPRINT CHRÎÜ43) 

3290 LOCA'E 28,19:PRÎNT CHRÎÜ43) 

3300 LC GATE 29,19:PRIfTT CHRÎÜ43) 

3310 LOCATE 34,19:PRINT CHRîfl43> 

3320 LOCATE 2,20: FRINT CHRîi143) 

3330 LOCATE 6,20:PRINT CFRÎÜ43? 

3340 LOCATE 8,2G:FRINT CHRÎH43) 

3350 LOCATE 1Q,20:PRINT CHRîi 143') 

3360 LOCATE 11,2Q:PRÎNT CHRîi143) 

3370 LOCATE 12,20:PRINT CHRîi143) 

3380 LOCATE 13,20:RRINT CHRîi143) 

3390 LOCATE 16,20:PRINT CHRîi143) 

3400 LOCATE 17,20:pRINT CHRîi143) 

3410 LOCATE 19,20:FRINT CHR$il43) 

3420 LOCATE 20,20:FRÎf4T CHRÎ1143) 

3430 LOCATE 22,20:PRINT CHRîi143! 

3440 LOCATE 24,20:PRINT CHRîi143) 

3450 LOCATE 25,2û:PRINT CHRîi143) 

2460 LOCATE 31,20:RRINT CHRÎÜ43) 

3470 LOCATE 32 t 20:PRINT CHRîi143) 

3920 IF PO-1 THEM SOUND 2,P,D EL3E SOTO 4010 
3930 GOTO 3910 

3940 DATA 633,60,478,85,0,5,478,25,0,5 
3950 DATA 478,60,379,60,426,90,478,30,426,60 
3960 DATA 379,60,478,85,0,5,478,30,379,60,319,60 
3970 DATA 284,175,0,5,284,60,319,90,379,25,0 
3980 DATA 5,379,60,478,60,426,90,473,30,426,60 
3990 DATA 379,60,478,90,568,25,0,5,568,60 
4000 DATA 638,60,47S,120,-1,-1 
4010 LOCATE 1,25:PRINT •SCORE:’ 

4020 LOCATE 15,25:PRINT 'VIE:’ 

4030 temp=1000 

4040 LOCATE 24,25:PRINT "TEMPS:";temp 
4050 LOCATE 2,2:PRINT CHRÎ(249) 

4060 X=2:Y=2 
4070 WHILE 1 

4080 IF NOT INKEY(74) THEN X=X-1 
4090 IF NOT INKEY(S) THEN x=x-l 
4100 IF NOT INKEY(75) THEN X=X+1 
4110 IF NOT INKEY(1) THEN x=x+l 
4120 IF NOT INKEY(72) THEN Y=Y-1 
4130 IF NOT INKEYSO) THEN y=y-l 
4140 IF NOT INKEY(2) THEN y=y+l 
4150 1F NOT INKEY(73) THEN Y=Y+1 
4160 IF X<2 THEN X=2 
4170 IF X)36 THEN X=36 
4180 IF Y<2 THEN Y=2 
4190 IF Y>22 THEN Y=22 
4200 LOCATE X,Y:PRINT CHRî!249) 

42iO CALL 6BD19 

4220 LOCATE X,Y:PRINT CHRÎ132) 

4230 temp=temp-l 

4240 LOCATE 24,25 : PRINT* TEMPS:"îtsmp 
4250 IF teop=Q THEN LOCATE 15,20:FOR Y=1 TO 50O:NEXT:SC0R=INT 
OSUE 4270 
4260 WEND 
4270 CLS 
4280 MODE 1 
4290 BORDER 18:PAPER 


3430 LOCATE 33,2ü:PEINT CHR$<143) 
'3490 LOCATE 34,20:PRINT CHR$(143) 
3500 LOCATE 4,2i:FRINT CHRÎ(143) 
3510 LOCATE 6,21:PRINT CHRÎC143) 
3520 LOCATE 8,21:PRINT CHRîi143) 
3530 LOCATE 1Q,21:PRINT CHR$<143! 
3540 LOCATE 11,21:PRINT CHRÎÜ43) 
3550 LOCATE Î2,21:PRINT CHRÎÜ43) 
3560 LOCATE 13,21:PR1NT CHR$(143) 
3570 LOCATE 15,2Î:PRINT CHRîi143) 
3580 LOCATE 16,2l:pRINT CHRîi143) 
3590 LOCATE 25,21:PRINT CHRîi143) 
3600 LOCATE 27,21 :PRINT CHR$H43) 
3610 LOCATE 29,21:RRINT CHRîi143! 
362 j lOCATE 31,21:FRINT CHRÎÜ43! 
3630 LOCATE 32,21:PRINT CHRÎI143) 
3640 LOCATE 34,21:PRINT CHR$(143) 
3650 LOCATE 2,22:PRINT CHR$(143) 
3660. LOCATE 4,22:FRINT CHRîi 143) 
3670 LOCATE 6,22:PRINT CHRÎ(143) 
3680 LOCATE 8,22:PRINT CHRÎI143) 
3690 LOCATE 15,22:PRINT CHR$(143! 


3700 LOCATE 16,22:PRINT CHRÎÜ43) 
3710 LOCATE 18,22:PRINT CHRîi143) 
3720 LOCATE 19,22:PRINT CHRîi143) 
3730 LOCATE 2G,22:PRINT CHRîi143) 
3740 LOCATE 22,22:PRINT CHRîi143) 
3750 LOCATE 23,22:PRINT CHRîi1435 
3760 LOCATE 25,22:FRINT CHRîi143) 
3770 LOCATE 26,22:PRINT CHRîi143) 
3780 LOCATE 27,22:PRINT CHRÎC143) 
3790 LOCATE 28,22:RRINT CHRîi143) 
3800 LOCATE 29,22:RRINT CHRîi143) 
3810 LOCATE 31,22:PRINT CHRîi143) 
3820 LOCATE 2,23:PRINT CHRîi143) 
3830 LOCATE 10,23:PRINT CHRîi143) 
3840 LOCATE 12,23:PRINT CHRîi143) 
3850 LOCATE 29,23:PRIN.T CHRîi 143) 
3860 LOCATE 3Û,23:PRINT CHRîi143) 
3870 LOCATE 31,23:PRINT CHRîi143) 
3880 LOCATE 33,23:PR1NT CHRîi143) 
3890 ’**#* MUSIQUE **** 

3900 RESTORE 3940 
3910 READ P,D 


_'+CH"$(2C4i+CHRî(32) 


xi CLS 

4300 BUCKET$=CHR$(32)+CHR* X 205) 

4310 BX=17:EY=24 

4320 LOCATE 1, ÜPEN 0:PRINT 'SCORE' 

4330 LOCATE 34, ÜPRINT "HISCORE* 

4340 RANDOMIZE TIME 
4350 GOSUB 4770 
4360 FOR E=1 TO 21 

(RND(11+32)*100):LOCATE 1,25:PRINT'SCORE:*;SCOR:FOR T=lf 
TO 1000:NEXT:G 

4370 IF RND>0.5 THEN BOMBî=CHR$<228):C=3:ELSE BOMB$=CHR$ 
!241|:C?1 

4380 DX=INTiRND*25)+7 


4390 GOSUB 4480 

4400 IF (DX=EX+2i OR (DX=BX+3) THEN GOSUB 4620 
4410 LOCATE ODX,ODYïFRINT CHRÎ(32) 

4420 NEXT 
4430 GOSUB 4680 
4440 GOSUB 4710 

4450 IF LOWERî(ANSî)="Y" THEN 4350 
4460 CALL &BBFF:PAPER 0:PEN 1ïCLS 
4470 END 

4480 'PROCEDURE DU JEU 

4490 0DX'=7:0DY=1 

4500 FOR DY=1 TO 23 

4510 LOCATE ODX,ODY:FRINT CHR$i32) 

4520 LOCATE DX,DY:PEN C:PRINT BOMBî 

4530 ODX=DX:ODY=DY 

4540 SOUND i,DY*5G,5 

4550 IF NOT INKEYi74) THEN BX=EX-1 

4553 IF NOT INKEYiS) THEN bx=bx-l 

4555 IF NOT INKEY(1) THEN bx=bx+i 

4560 IF NOT INKEYI75) THEN BX=BX+1 

4570 IF BX<1 THEN BX=1 

4580 IF BX>34 THEN BX=34 

4590 LOCATE BX,BY:PEN D:PRINT BUCKETî 

4600 NEXT D'Y 

4610 RETURN 

4620 ' SCORE 

4630 IF C=3 THEN PTS=PTS+10:S0UND 1,50,50 
4640 IF C=1 THEN PTS=CINT(PTS/2):SOUNB 1,1000,100 
4650 LOCATE 1,2:REN 0:PRINT PTS 
4660 PTS=SC0R+PTS 
4670 RETURN 

'4680 FOR T=1 TO 3Q00:NEXT 
4690 PAPER Q:PEN 0:BORDER Q:GOTO 10 
4700 PAPER 0:PEN Q:BORDER OîGOTO IC 
4710 IF PTSxHISCÛRE THEN HISCORE=PTS 
4720 LOCATE 34,2 
4730 PEN 0 
4740 PRINT HISCORE 
4750 PTS=0 
4760 RETURN 

4770 'SOUS PROGRAMME DE DEPART 
4780 LOCATE 10,10 
4790 PEN 3 

4800 WHILE INKEYÎO"':WEND 

4810 PRINT "APPUYEZ SUR UNE TOUCHE POUR COMMENCER" 

4820 AÎ=INKEY$:IF Aî="“ THEN 4820 

4S3Ü LOCATE 10,10 

4840 FRINT SPACE$(22) 

4850 RETURN 
4860 END 
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CAEN 


t£,oi*ir 

INFORMATIQUE 

Micro-ordinateurs 
Accessoires 
Nombreux logiciels 


39/41 rue de l'Oratoire 
14000 CAEN 
Tél. : (31) 85.18.77 
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CHAMBRAY-LES-TOURS 


L.I.M. 

ORDINATEURS, 

LOGICIELS, 

PERIPHERIQUES 


Centre Commercial CATS 
371 70 CHAMBRAY-LES-TOURS 

Tél : 47.27.29.00 
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SAINT JEAN-DE-LA-RUELLE 


MERCI 

Vingt ans d’expérience 
en Informatique 
Son assistance logiciels 
Ses compétences techniques 
S.A.V. 

Ne soyez pas consommateurs 
Devenez client M.E.R.C.I. 

23 rue de la Mouchetière - Z.I. Ingré 
45140 Saint-Jean-de-la-Ruelle 
Tél. : 38 43.11.83 
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EVREUX 


IMG Mtë LCÜG 

CHIC ! des PRIX CHOC 


Housses pour AMSTRAD 129 F 
Bureaux pour AMSTRAD .490 F 


Initiation sur AMSTRAD 


DEMANDEZ notre CATALOGUE V.P.C. 


2 bis, rue du Docteur GUINDEY 
27000 EVREUX - Tél. : 32.38.49.52 


42 SAINT-ETIENNE 


-fb 


, ® 


FRANCE 
DISQUETTE 

Revendeur agréé 
AMSTRAD FRANCE 


Grand choix de logiciels AMSTRAD 
DISQUETTES tous formats 
Cartes et Lecteurs compatibles APPLE® 
Produits Informatiques divers 


14, rue Ferdinand 

42000 ST-ETIENNE - Tél. : 77.21.26.28 
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VILLEDIEU 


Systèmes 

ORDINATEURS. PERIPHERIQUES 
LIBRAIRIE, 

LOGICIELS 

EDUCATION NATIONALE 

37, rue Gambetta 
50800 VILLEDIEU 
Tél. 33.51.30.76 
TELEX : APEL SY 170 016 
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BORDEAUX 


OU TROUVER TOUS LES MINI 
ET MICRO-ORPINATEURS 
A PRIX PLANCHER 
+ LA COMPETENCE CHEZ: 


PHK.UPP 




11, rue de Lalande 
33000 BORDEAUX 
Tél. : 56.31.45.82/56.91.04.64 
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NANTES 


liflîcronaute 

LE SPECIALISTE 
AMSTRAD A NANTES 

464 - 6128-8256 

périphériques 
+ de 100 logiciels 
disquettes, cassettes 
semi-pro ou particuliers 

9, rue Urvoy de St. Bedan 
44000 NANTES 
Tél. 40.69.03.58 
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METZ 


Ets GRYCHTA Frères 


ORDINATEURS, 

LOGICIELS, 

PERIPHERIQUES 


1 et 15 rue de la Fontaine 
57000 METZ 

Tél. 8 775.61.43 et 736.09.18 
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VIMOUTIERS 


i£oi*ir 

INFORMATIQUE 


Micro-ordinateurs 
Accessoires 
Nombreux logiciels 


11, rue Du Perré 
61220 VIMOUTIERS 
Tél. 33.39.16.65 


72 


CHATEAU-DU LOIR 


CASTEL HIFI 


Joël HESLON 

MERCURE D'OR 1983 


Distributeur AMSTRAD 


Ordinateurs 

Périphériques 

Logiciels 

Librairie 


71-73 rue Aristide-Briand 
72500 CHATEAU-DU-LOIR 

Tél : 43 44.04.64 


82 


MONTAUBAN 


MICRO-ORDINATEUR S2 


ORDINATEURS CPC 464 
6128 ■ PCW 8256 


Formation sur AMSTRAD 
Nombreux logiciels et 
périphériques 


39, rue de la Comédie 
(près du Théâtre) 
82000 MONTAUBAN 
Tél. : 63 66.27.22 
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LYON 


FRANCE® 

• iF DISQUETTE 
Revendeur agréé 
AMSTRAD FRANCE 


AMSTRAD 

APPLE® compatibles 
PRODUITS INFORMATIQUES divers 
DISQUETTES tous formats 


Magasin et vente par correspondance : 
255, avenue Berthelot 
69008 LYON - Tél. : 78.01.79.63 
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ROUEN 


i£oiAir 

INFORMATIQUE 
CITIZEN BAND 

Micro-ordinateurs 
Accessoires 
Nombreux logiciels 


31, Bld. de la Marne 
76000 ROUEN 
Tél : 35o07o 60,60 
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JOIGNY 


S. DJ. 


ORDINATEURS, LOGICIELS 
PERIPHERIQUES 
AMSTRADESK 


LISTE SUR DEMANDE 


25, route de Montargis 
89300 JOIGNY. Tél. 86.62.06.02 
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LUXEU1L-LES-BAINS 


ELECTRONIQUE 70 


REVENDEUR-CONSEIL QUALIFIÉ 

AMSTRAD France 


ORDINATEURS, 

LOGICIELS, 

PERIPHERIQUES 

COURS INFORMATIQUE 


1 5 allées Maroselli 
70300 LUXEUIL-LES-BAINS 

Tél : 84.40.20.04 
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LE HAVRE 


S£oi*ir 

INFORMATIQUE 


Micro-ordinateurs 
Accessoires 
Nombreux logiciels 


22 place du Général-de-Gaulle 
76600 LE HAVRE 
Tél. : 35 43.51.54 
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CHENNEVIERES-SUR-MARNE 


3.. ET C 

I. I hs* ir~« 1::i *—!■ r-. 


REVENDEUR QUALIFIE AMSTRAD 


PERIPHERIQUES 

ORDINATEURS 

LOGICIELS 

LIVRES 


SERVICE-APRES-VENTE 


62 ,■ R UE' DU GL DE GAULLE 
9443G C H E N N E VIE R E Si / M 

JEI. 45.76.73. 13, 


REVENDEURS, pour figurer dans cette rubrique, appelez Geneviève au 24 1.81.81 













































































Tricoloropération, malgré un parmi les quatre opérations, 

nom difficilement prononçable avec cinq niveaux de difficulté 

est un jeu-éducatif. Il doit per- pour les divisions (trois pour les 

mettre, pour les enfants, un autres opérations). Le jeu 

apprentissage agréable du calcul s’appelle “tricolor...” car vous 

mental et, pour les plus vieux, un débutez le jeu avec un feu vert, 

bilan personnel de cette disci- Si le feu est vert et que la réponse 

pline un peu oubliée pour cause est fausse, le feu passe à 

de calculatrices et ordinateurs... l’orange. S'il est orange, le feu 

On peut jouer seul, ou mieux, à passe au rouge... et s’il est 

deux. Vous pouvez choisir le test rouge, on ne passe plus... ou 


plutôt si, on repasse au vert avec n’avez plus six chances mais 
une chance en moins ( - 1 vie), trois chacun. Au départ, vous 
Par contre, si vous répondez devez donner un nombre maxi¬ 
bien, un feu orange repasse au mum à l’ordinateur. Le jeu 
vert, un rouge devient orange et, s’arrête lorsque vous avez épuisé 
en plus, vous marquez un point, vos chances ou répondu à cin- 
Si le feu est vert et que vous quante questions... 
répondez bien, vous marquez Noël Garden 

deux points. 

On peut observer une variante 
dans le jeu à deux, car vous 


m\sim 




5 REM TRICOLOROPERATION par Noël GARDEN 

10 BORDER l:INK 0,16:INK 1,0:INK 2,9:INK 3,2A,6:INK 4,6:INK 5,1:INK 6,26:INK 7,15:INK 9,2:INK 10,15,12:INK 11,13:INK 12,4:IW 13,20: 
INK 14,7 

20 MODE 1 : PAPER 0:PEN 3:CLS:L0CATE 7,7:PRINT* STRINSK27, ) 

30 FOR ij=8 T0 17:LGCATE 7,ij:PRINT ’** **’:NEXT 

40 L0CATE 7,18:PRINT STRING$(27,'*') 

50 PEN 1:L0CATE 11,9:PRINT ■TRICOLOROPERATION’ 

60 L0CATE 11,12:PRINT 'PAR NOËL GARDEN" 

70 LOCATE 11,15SPRINT ’IE 29 MAI 1985' 

80 FOR ik=10 T0 16 STEP 3:L0CATE ll,ik:PEN 3:PRINT STRING»!17,216):NEXT 


Tricoloropération 


TOI TU AS CNCOR.E ÙOUE. 
AVEC LE TR'lCOLO?ÉRAT\otf 


rVMAtO 


COMMÉ-Wr n 

Hort. • 
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90 fiOSUB 5250 

210 GOTO 2850 

220 GOSUB 4900:G0SUB 4700 

230 GOTO 4500 

240 CLSM10DE 0:SYMB0L 241,1,7,15,31,31,63,63,63 

250 SYMBOL 242,128,224,240,248,248,252,252,252 

260 SYMBOL 243,127,127,127,127,127,255,255,255 

270 SYMBOL 244,254,‘24,254,254,254,255,255,255 

280 SYMBOL 245,255,255,255,127,127,127,127,127 

290 SYMBOL 246,255,255,255,254,254,254,254,254 

300 SYMBOL 247,63,63,63,31,31,15,7,1 

310 SYMBOL 248,252,252,252,248,248,240,224,128 

320 WIND0W#1,19,20,1,8:WIND0W#2,19,20,9,16:WI1MD0WI3,19,20,17,23 

330 bt=CHR$ ( 32 ) +CHR$ ( 32 ) •' at=CHRt ( 241 ) +CHRt ! 242 ) ■t-CHRI ( 243 )+CHR$ ( 244 ) -t-CHR* ( 245 ) +CHRÎ ( 246 ) +CHR$ ( 247 ) +CHR$ ( 248 ) : c$=b$+b$+a$+bt 
340 PAPER#1,6:PEN#1,4:PRINT#1,c$+b$ 

350 PAPERI2,6:PEN#2,7:PRINT#2, c$+b$ 

360 PAPER#3,6:PEN#3,2:PRINT#3,ct 

370 MINDOWSO,1,18,1,23:PAPER#0,8:PENtO,1 :CLS40 

380 GOSUB 1300 ‘ 

390 GOTO 3260 
500 REM *** ADDITION 

510 GOSUB 240:GOSUB 62O0:0N gg GOTO 520,600,700 
523 REM *« Addition d’entiers positifs 
530 GOSUB 131O:G0SUB 135Q:G0SUB 2790:GOSUB 780 
540 GOSUB 800 

550 PEN 5:LOCATE 1,3:PRINT 'ADDITION ' 

560 LOCATE 1,14:PRINT 'AJOUTE '-.GOSUB 7Q0Q:L0CATE 4,1B:PRINT '+':ab=a+b 
570 GOSUB 1440:IF hàsard=l THEN RETURN 
580 GOTO 540 

600 REM *« Addition d’entiers positifs et négatifs 
610 GOSUB 1310:G0SUB 1350:G0SUB 2790:G0SUB 780 
620 GOSUB 850 

630 PEN 5:LOCATE 1,3:PRINT 'ADDIT.' 

640 LOCATE 1,14:PRINT 'AJOUTE ':GOSUB 7000:L0CATE 4,18:PRINT '+':ab=a+b 
650 GOSUB 1440:IF hasard=2 THEN RETURN 
660 GOTO 620 

700 REM *** Addition avec 3 chiffres apres LE POINT 
| 710 GOSUB 1310:G0SUB 1350:G0SUB 2830:G0SUB 780 

720 GOSUB 930 

730 PEN 5:1_0CATE 1,3:PRINT 'ADDI. 

740 LOCATE 1,14:PRINT 'AJOUTE ':GOSUB 702Q:L0CATE 4,18:PRINT '+': a dd=FIX((a+b)*1000>:ab=add/lÜOO 
750 GOSUB 1400:IF hasard=3 THEN RETURN 
760 GOTO 720 

780 IF reponse=l THEN GOSUB 7300 ELSE GOSUB 7200 
790 RETURN 
800 GOSUB 7100 

810 PEN 5:LOCATE 11,3:PRINT 'ENTIER +”:PEN 7:LÛCAÎE 1,4:PRINT STRING*(18,126i:RANDOMIZE TIME 

820 a=INT(RND(l)*d):PEN 4:L0CATE 9,8:PRINT aÜF a=0 THEN 820 

830 b=INT(RND(l)*d)‘.PEN 4‘.LOCATE 9,11:PRINT b:IF b=Q THEN 830 

840 RETURN 

850 GOSUB 7100 

860 PEN 5:LOCATE S,3:PRINT 'NBR + et -”:PEN 7:LOCATE 1,4:PRINT STRINGK18,126):RAND0MIZE TIME 

870 1=INT(2*RND(1î): IF 1=1 THEN p=d ELSE p=0 

380 a=INT((RND(1)*d)—p):PEN 4:L0CATE 8,8:PRINT a:IF a=Q THEN 870 

890 q=lNT(2»RND(l)):IF q=l THEN r=d ELSE r=0 

900 b=INT!(RND(l)*d)-r):LOCATE 8,ll:fEN 4:PRINT b:IF b=0 THEN 890 

910 RETURN 

930 GOSUB 7100 

940 PEN 5:L0CATE 7,3:PRINT '3CH apres .":PEN 7:L0CATE i,4:PRINT STRINGï(17,126):RANDOMIZE TIME 

950 1=INT(2*RND(1)): IF 1=1 THEN p=d ELSE P=D 

960 s=FIX((lRND(l)*d!-p)*1000):a=s/1000:PEN 4:L0CATE 8,8:PRINT a 

970 q=INT(2*RND(l)>:IF q=l THEN r=d ELSE r=D 

980 ss=FIX(((RND(l)*d!-r)*1000):b=ss/1000:LOCATE 8,U:PRINT b 

990 RETURN 

1000 REM *** SOUSTRACTION 

1010 GOSUB 240:GOSUB 6200:0N gg 60SUB 1020,1100,1200 
1020 REM *+* Soustraction d’entiers positifs 
1030 GOSUB 1310:GOSUB 1350:GOSUB 2790:GOSUB 780 
1040 GOSUB 800 

1050 PEN 5:LOCATE 1,3:PRINT 'SOUSTRA. ' 

1060 IF b>a THEN GOSUB B30:G0T0 1060 

1070 PEN 5:LOCATE 1,14:PRINT 'SOUST.':GOSUB 70Q0:L0CATE 4,18:PRINT '-':ab=a-b 
1080 GOSUB 1440:IF hasard=4 THEN RETURN 
1090 GOTO 1040 

1100 REM *** Soustraction d’entiers positifs et négatifs 
1110 GOSUB 1310:G0SUB 1350:G0SUB 2790:GOSUB 780 
1120 60SUB 850 
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1130 PEN 5îLOCATE l,3îPRINT 'SOUST.' 

1140 LOCATE Î,14:PRINT 'SOUST.*:GOSUB 700Q:L0CATE 4, ISîPRINT , - , :ab=a-b 
1150 GOSUB 1440:1F hasard=5 THEN RETURN 
1160 GOTO 1120 

1200 REM *** Soustraction avec 3 chiffres apres LE POINT 
1210 GOSUB 1310:GOSUB 135t):G0SUB 2830:60SUB 780 
1220 GOSUB 930 

1230 PEN 5îLOCATE !,3:PRINT “SOUS.” 

1240 LOCATE 1,Î4:PRINT "SOUST.*:GOSUB 7020:L0CATE 4,18:PRINT : S ous=FlX<(a-b)*10Q0):ab=sous/1000 
1250 GOSUB 1400:1F hasard=6 THEN RETURN 
1260 GOTO 1220 

1300 WIND0W#4,1,20,24,25 :PAPER#4,0:PEN#4,1 :CLS#4:PRINT#4,"<ENTER>, POUR C0NT1. <DEL> POUR ANNULER':RETURN 
1310 PAPER#l,6:PAPER#2,6:PAPER#3|6:PRINT#1,STRING*(16)bl):PRINT#2iSTRING$(16ib$):PEN#3|2:PRINT#3iC$:RETURN 
1320 PAPER*1,6:PAPERI2)6:PAPER#3i6:PRINT#1)STRING*(16)b*):PEN#2)7:PRINT#2iC*+b*:PRlNT#3)STRING*!14)bt):RETURN 
1330 PAPER#l,6:PAPER#2,6:PAPER#3,6:REN#l,4:PRINT#l,c$+b*:PRINT#2,STRING*(16,b*>:PRINT#3,STRING*(14,b*):RETURN 
1350 REM *** Choix du nombre maximun a utiliser 
1360 CLSUO 

1370 PEN 1îLOCATE 2,5:PRINT*NOMBRE MAXIMUM':PEN 2:L0CATE 2,6:PRINT STRINGtf15,216) 

1380 PEN 1îLOCATE 4,12:PRINT "A UTILISER':PEN 2îLOCATE 4,13:PRINT STRING*(11,207) 

1390 LOCATE 8,19:PEN 4:INPUT d:PRINT CHR*(7):RETURN 

1400 total*=STR*(ab):total=LEN(total *):toto=17-total: IF ab<0 THEN toto=toto-l 
1410 LOCATE toto,22:INPUT cîPRINT CHR*!7) 

1420 IF c=ab THEN GOSUB 6400 ELSE GOSUB 6650 
1430 RETURN 

1440 total*=STR*!ab):total=LEN(total*):totQ=i4-total:IF ab<0 THEN toto=toto-l 
1450 GOTO 1410 

1460 PEN 4îLOCATE 1,18:PRINT USING'####.##"îaîLOCATE 10 ,IBîPRINT USING "####.##'ib 
1470 GOTO 1920 

1480 totalt=STR*(ab):tota1=LEN(total*):toto=15—total : IF ab<0 THEN toto=toto-l 

1490 GOTO 1410 

*500 REM *** MULTIPLICATION 

1510 GOSUB 240:GOSUB 6200:ON gg GOSUB 1520,1600,1700 
1520 REM *** Multiplication d’entiers positifs 
1530 GOSUB 1310ÎG0BUB 1350:G0SUB 2830:GOSUB 780 
1540 GOSUB 800 

1550 PEN 5îLOCATE 1,3:PRINT ’MULTIPL. ' 

1560 LOCATE 1,14:PR1NT 'MULTI.GOSUB 70Q0:L0CATE 4,ISîPRINT '*":ab=a*b 
1570 GOSUB 1440:IF hasardé THEN RETURN 
1580 GOTO 1540 

1600 REM *** Multiplication d’entiers positifs et négatifs 
1610 GOSUB 1310îG0SUB 1350:S0SUB 2830:G0SUB 780 
1620 GOSUB 850 

1630 PEN 5îLOCATE 1,3:PRINT 'MULTI.' 

1640 LOCATE 1,14:PRINT 'MULTI.':GOSUB 7Q00:L0CATE 4,ISîPRINT '*':ab=a*b 
1650 GOSUB 1440:1F hasardé THEN RETURN 
1660 GOTO 1620 

1700 REM **# Multiplication avec 4 chiffres apres LE POINT 
1710 GOSUB 1310:GOSUB 1350:G0SUB 283(MG0SUB 780 
1720 GOSUB 1800 

1730 PEN 5îLOCATE 1,3:PR!NT 'MULT. 4 CH apres .' 

1740 LOCATE 1,14:PRINT 'MULTI.' 

175G PEN 4 îLOCATE 7,16:PRINT USING ' ######. ; a : LOCATE 7,18*.PRINT USING •######.##■ î b : PEN 1 îLOCATE 4,18:PRINT **':LOCATE 1,20:PRINT 

STRINGtfî?)1311îLOCATE 1,22:FRINT '=' 

1760 ab=a*b 

1770 GOSUB 1480:IF hasard=9 THEN RETURN 
1780 GOTO 1720 

1800 REM *+* Calcul de a et b dans les operations avec des nombres apres LE POINT 
1810 GOSUB 7100 

1820 PEN 7îLOCATE 1,4:PRINT STRING*(17,126)îRANDOKIZE TIME 

1830 l=INT(2*RND(l))iIF 1=1 THEN p=d ELSE p=G 

1840 s=FIX(((RNDIl)*d)-pi*100):a=s/100:PEN 4:L0CATE 9,8:PRINT a 

1850 q=INT(2*RND(1)): IF q=l THEN r=d ELSE r=0 

1860 ss=FIX(<(RND<l)*di-r>*100):b=55/100:PEN 4:L0CATE 9,11îPRINT b 

1870 RETURN 

1900 REM *** Dessin de la division 

1910 PEN 4îLOCATE 1 ,ISîPRINT USING '##*###'iaîLOCATE 11 ,IBîPRINT USING '######';b 

1920 LOCATE 9,IBîPRINT CHR*(149)îLOCATE 9,19:PRINT CHR*(149)îLOCATE 9,20:PR1NT CHR*(151)îLOCATE 10,20:PRINT STRIN6*(9,154)îLOCATE 9, 
21 :PRINT CHR*(149 )îLOCATE 9,22:PRINT CHR*(149) 

1930 RETURN 

1950 total*=STR*(cc):PEN 4:total=LEN(totalt):toto=16-total:IF cc<0 THEN toto=toto-l 
1960 PEN 1îLOCATE toto,22:lNPUT cîPRINT CHR*(7) 

1970 IF c=cc THEN GOSUB 5500 ELSE 5650 

1980 RETURN 

2000 REM *** DIVISION 

2010 GOSUB 2650:ON m GOTO 2020,2120,2220,2360,2500 
2020 REM *** Division d’entiers positifs sans reste (SR) 

2030 GOSUB 240:GOSUB 1350:60SUB 2750:GOSUB 131Q:G0SUB 780 
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2040 GOSUB 8DO:mro=l:cpt=0 

2050 PEN 5îLOCATE 1,3:PRINT “DIV. SR ' 

2060 div=a\fc:IF div=a/b THEP4 2090 

2070 cpt=cpt+lîIF cpt<>20 THEN SOSUB S30:S0T0 2060 

2080 SOSUB 82C:cpt=0*.GOT0 2060 

2090 PEN 5îLOCATE l,i4:PRINT 'DIVISE 1 :cc=a/b:60SUB 1900 
2100 SOSUB 1950: IF hasanMO THEN RETURN 
2110 GOTO 2040 

2120 REM *** Division d’entiers positifs et négatifs sans reste (SR) 

2130 GOSUB 240:60SUB 1350:G0SUB 2750:G0SUB 1310:G0SUB 7S0 

2140 SOSUB S50:ram=2:cpt=0 

2150 PEN 5.-L0CATE 1,3:PRINT 'DIV SR 1 

2160 div=a\b:IF div=a/b THEN 2190 

2170 cpt=cpt+l:IF cpt<=20 THEN GOSUB 890:G0T0 2160 

2180 GOSUB 870:cpt=0:GÛTû 2160 

2190 PEN 5:LOCATE 1,14:PRINT "DIVISE 1 :cc=a/b:GOSUB 1900 
2200 GOSUB 1950îIF hasardai THEN RETURN 
2210 GOTO 2140 

2220 REM *** Division d’entiers positifs avec reste (AR) 

2230 GOSUB 240:G0SUE 1350:G0SUB 2770:G0SUB 1310:G0SUB 780 

2240 GOSUB 800:rr.m=3 

2250 PEN 5îLOCATE 1,3:PRINT 'DIV. AR 1 

2260 IF b)a THEN GOSUB 830:G0T0 2260 

2270 LOCATE 1,ÎAîPRINT 'DIVISE 1 :GOSUB 1900:cc=a\b:reste=a MOD b 

2280 cc*=STR*icc):total=LEN(cc*):toto=i6-total 

2290 PEN 1îLOCATE toto,22:lNPUT cîPRINT CHR$<7):IF c<> a\b THEN 2290 

2300 reste$=STR$(reste):res=LEN(restet):place=6-res 

2310 LOCATE place,22:INPUT rr,PRINT CHRt(7) 

2320 1F a=(b*cc)trr THEN GOSUB 5500:G0T0 2340 

2330 GOSUB 5650 

2340 IF hasard=12 THEN RETURN 

2350 GOTO 2240 

2360 REM *** Division d’entiers positifs et négatifs avec reste (AR) 

2370 GOSUB 240:G0SUB 135Q:G0SUE 2770:60SUB 1310:G0SUB 780 

2380 GOSUB 850: but, =4 

2390 PEN 5îLOCATE 1,3:PRINT "DIV AR ' 

2400 LOCATE 1,14:PRINT 'DIVISE'îGOSUE 190G:cc=a\fa:reste=a MOD b 

2410 cc*=STR$(cc):total=LEN(ccî):toto=16-totaI:IF cc<0 THEN toto=toto-l 

2420 PEN 1îLOCATE toto,22:INPUT cîPRINT CHRî(7):IF c<)a\b THEN 2420 

2430 resteî=STR$(reste):res=LEN(restet):place=6-res:IF resteCO THEN place=place-l 

2440 LOCATE place,22:INPUT rrîPRINT CHR*!7) 

2450 IF a=(b*cc)+rr THEN 60SUB 5500:GOTO 2470 

2460 GOSUB 5650 

2470 IF hasardé 3 THEN RETURN 

2480 GOTO 2380 

2490 IF hasard=13 THEN RETURN 
2500 REM *** Division avec 3 chiffres apres LE POINT 
2510 GOSUB 240:GOSUB 1350:G0BUB 2750:GOSUB 1310:603UB 780 
2520 GOSUB 1800:»=5 

2530 PEN 5îLOCATE 1,3:PRINT ‘DIV. 3 CH. apres .' 

I 2540 LOCATE 1,14:PRINT ‘DIVISE*:GOSUB 1460:div=FIX((a/b)*1000):cc=div/1000 
2550 tota!$=5TRî(cc):totai=LEN(totalî):toto=17-total:IF cc<0 THEN toto=toto-l 
1 2560 GOSUB 1960 
| 2570 IF hasard=14 THEN RETURN 
I 2580 GOTO 2520 

1 2650 CLSîLOCATE 11,3:PRINT ‘CHOIX DE DIVISION 1 îLOCATE 11,4:PRINT STRING*(19,160) 
i 2660 PRINT:PRINT:PRINT '-(1) DIVISION entiers + sans reste 1 
I 2670 PRINT:PRINT "-(2) DIVISION entiers + et - sans reste" 

, 2680 PRINT:PRINT *-(3) DIVISION entiers + avec reste* 

2690 PRINT:PRINT '-(4) DIVISION entiers + et - avec reste" 

I 2700 PRINTîPRINT '-(5) DIVISION avec 3 ch. apres LE POINT* 

] 2710 LOCATE 3,ÎT’-PRINT ‘Choisissez un nombre de 1 a 5 1 îLOCATE 3,18:PRINT STRINGK35,126) 

. 2720 GOSUB 4980:L0CATE 18,21:INPUT m®:PRINT CHRt(7) 

I 2730 LOCATE 3,23:IF mm>5 OR mm<l THEN PRINT nombre incorrect -1 a 5-:Reessayez‘îLOCATE 3,24:PRINT STRING*<36,126):GQT0 2720 
i 2740 RETURN 

i 2750 IF d<1000 THEN RETURN 

, 2760 LOCATE 1,20:FEN lîPRINT NBR TROP GRAND,'îLOCATE 1,21:PEN llîPRINT STRING*(17,126)îLOCATE 1,22:PEN lîPRINT ’< 1000 S.V.P. ! 

■:PEN 11îLOCATE 1,23:PR1NT STRING$(17,126):60SUB 3260:G0SUB 1360:G0T0 2750 
| 2770 IF d<10000 THEN RETURN 

, 2780 LOCATE 1,20:PEN lîPRINT *- NBR TROP GRAND, 1 îLOCATE 1,21:PEN llîPRINT STRING»)17,126)îLOCATE 1,22:PEN lîPRINT V 10000 S.V.P. 
*:PEN 11îLOCATE 1,23:PRINT STRING$(17,126):G0SUB 326D:G0SUB 1360:G0T0 2770 
2790 IF dClOÜQOOO THEN RETURN . . 

2800 LOCATE 1,20:PEN HPRINT ■- NBR TROP GRAND, 1 îLOCATE 1,21:PEN llîPRINT STRING»(17,126)îLOCATE 1,22:PEN lîPRINT '<1000000 S.V.P. 
, 1 :PEN 12 îLOCATE 1,23:PRINT STRING$(17,126):GOSUB 3260:G0SUB 136Q:G0T0 2790 
2830 IF d<100000 THEN RETURN 

I 2840 LOCATE 1,20:PEN lîPRINT ■- NBR TROP GRAND, 1 îLOCATE 1.2HPEN llîPRINT STRING*(17,126)îLOCATE 1,22:PEN lîPRINT "<100000 S.V.P. 
i : PEN 11‘-LOCATE 1,23:PRINT STRING*(16,126) îGOSUB 3260:G0SUB 136O:G0T0 2830 
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2850 REM *** Jeu seul ou a deux 
2860 PEN 1 :CLS 

2370 LOCATE 4,8:PRINT ‘Jouez-vous SEUL (1)- ou a DEUX (2)‘ 

28S0 LOCATE 4,9:PRINT STRING*(33,131) 

2890 LOCATE 9,16:PRINT 'TAPEZ - ! - OU - 2 -' 

2900 LOCATE 9,i7:PRINT STRING*(23,131) 

2910 reponsef=I!>jKEY*:IF reponse*=" THEN 2910 ELSE feponse=VAL(réponse*) 

2920 LOCATE 2,23:IF reponse>2 OR reponse<l THEN PRINT 'Réponse NON CONFORME:! ou 2 seulement.':GOTO 2910 

2930 ON réponse GOTO 2940,220 

2940 GOSUB 4900:GOSUÎ 320Q:G0T0 4500 

3000 REM *** Tableau de score 

3020 PAPER#0,U:PEN#0,2:CLS#0 

3030 PRINT:PRINT STRING*(18,'*">! 

3040 FOR ii=l TO 19:PRINT '* *';:NEXT 

3050 LOCATE 1,12:PRINT STRING*(18,"*') 

3060 LOCATE 1,22:PRINT STRING$(18,“*') 

3070 PEN 5:cf=INT(20-un)/2:L0CATE cf,4:PRINT UPPER$(urr*):PEN 2:L0CATE cf,5:PRINT STRING*(un,131) 

3080 LOCATE 2,7:PEN 5:PRINT *NBR DE JEUX :';x:L0CATE 2,8:PEN 2:PRINT STRING*(13,131) 

3090 LOCATE 2,10:PEN 5:PRINT "NBR DE PTS :'jy:L0CATE 2,U:PEN 2:PRINT STRING*< 13,131 ) 

3100 PEN 5:df=INT(20-deux)/2:L0CATE df,14:PRINT UPPER$(deux*):PEN 2:L0CATE df,15:PRINT STRING*(deux,216) 

3110 LOCATE 2,17:PEN 5:PRINT 'NBR DE JEUX :'; V :L0CATE 2,1B:PEN 2:PRINT STRINGt(13,216) 

3120 LOCATE 2,20:PEN 5:PRINT 'NBR DE PTS : 11 lu: LOCATE 2,21:PEN 2:PRINT STRING*(13,216) 

3130 GOTO 3370 

3200 REM *4* Prénom du joueur seul 

3210 BORDER 1:PAPER 2:PEN l:CLS:LOCATE 3,24:PRINT 'APPUYER sur <ENTER/ apres LE PRENOM' 

3220 LOCATE-9,8:PRINT "QUEL EST TON PRENOM ?':LOCATE 9,9:PRINT STRINGt(24,126) 

3230 LOCATE 15,16:INPUT seul*:,PRINT CHR*(7):seu1=LEN(seul*):LOCATE 17,17:PRINT STRING*(seul,216):long=<40-(18+seul>>/2 
3240 CLS:LOCATE long, 12:PRINT 'JE TE REMERCIE. :*:LOCATE long+19,12:PEN 3:PRINT UPPER*(seul*) 

3250 PEN 1 :LOCATE long, 13:PRINT STRING*!19+seul,126) 

3260 debut=TIME 

3270 WHILE TIME<début+300:WEND:RETURN 

3300 REM *** Tableau de score du joueur seul 

3310 PAPERtO,11:PEN#0,2:CLSIQ:LOCATE 1,4:PRINT STRING*<18,"*')ï 

3320 FOR i=l TO 1B:PRINT '* *';:NEXT 

3330 PRINT STRING*(18, '*'); 

3340 PEN 5:cr=INT(20-seul)/2:LOCATE cr,7:PRINT UPPER*(seuit):PEN 2:L0CATE cr,B:PRINT STRING*(seul,131) 

3350 LOCATE. 2,11:PEN 5:PRINT 'NBR DE JEUX :':LOCATE 2,12:PEN 2:PRINT STRING*(13,131)ïLOCATE 15,11:PR1NT z 
3360 LOCATE 2,15:PEN 5:PRINT 'NBR DE PTS :':LOCATE 2,16:PEN 2.-PRINT STRING*! 13,131 ):LOCATE 15,15:PRINT yy 
3365 LOCATE 2,19:P£N 5:PRINT 'NBR DE CHA. :":LOCATE 2,20:PEN 2:PRINT STRING*(13,131>:LOCATE 15,19:PRINT » 

3370 debut=TlME 

3380 WHILE TlME<debut+600:WEND:RETURN 

3500 REM *** Ecriture de la fin du programme 

3510 SYMBOL AFTER 145 

3520 SYMBOL 145,1,1,3,3,7,7,15,15 

3530 SYMBOL 146,128,128,192,192,224,224,240,240 

3540 SYMBOL 147,31,31,63,63,127,127,255,255 

3550 SYMBOL 148,248,248,252,252,254,254,255,255 

3560 SYMBOL 155,255,255,254,254,252,252,248,248 

3570 SYMBOL 150,255,255,127,127,63,63,31,31 

3580 SYMBOL 156,15,15,7,7,3,3,1,1 

3590 SYMBOL 152,240,240,224,224,192,192,12B.128 

3600 SYMBOL 153,124,62,31,15,15,15,15,15 

3610 SYMBOL 157,240,240,240,248,248,252,124,124 

3620 SYMBOL 249,192,240,252,252,254,254,255,255 

3630 SYMBOL 250,15,31,63,127,254,252,248,240 

3640 SYMBOL 251,240,248,252,254,127,63,31,15 

3650 SYMBOL 252,255,255,254,254,252,252,240,192 

3660 SYMBOL 253,15,15,15,15(15,31,63,127 

3670 SYMBOL 254,127,63,31,15,15,15,15,15 

3680 SYMBOL 255,240,224,192,128,240,240,240,240 

3690 MODE 0:PAPER 5:PEN 10:BORDER Q:CLS 

3700 it=CHR*(32)+CHR*(32):j*=CHRt(143):k*=CHR*(249):lt=CHR*(145) 

3710 m*=CHR*(146):n*=CHR*(133):y*=CHR*(138):o*=CHR*<254):p*=CHR*(147) 

3720 q*=CHR*(148):r*=CHRt(141): s *=CHRt(250):t*=CHR*(155):u*=CHR*(150) 

3730 v$=CHR*(135):w*=CHR*(251)îx*=CHR*(255):z *=CHR*(253)!h*=CHR»(142) 

3740 f*=CHR*(152):g*=CHR*(156):e*=CHR*(252):aa*=CHR*(153):bb*=CHR*(157) 

3750 LOCATE 2,3:PRINT j*+k*+i*+j*+k*+i*+l*+m*+i*+n$+y*+i*+j*+j* 

3760 LOCATE 2,4:PRINT n*+o*+i*+n*+p*+i*+p*+q*+i*+n*+y*+i*+n*+y* 

3770 LOCATE 2,5:PRINT r*+s*+i*+r*+s*+it+tt+ut+it+n*+y*+i*+n*+y* 

3780 LOCATE 2,6:PRINT v*+ui*+i*+j*+x*+i*+n*+y*+i*+qt+p*+i*+n*-ty* 

3790 LOCATE 2,7:PRINT n*+z*+i*+n*+bb*+i*+r*+h*+i*+u*+t*+i*+n*+y* 

3800 LOCATE 2,8:PRINT j*+e*+i*+n*+aa*+i*+n*+y*+i*+gt+f*+i*+jt+j* 

3810 LOCATE 2,10:PEN 3:PRINT STRING*(18,238) 

3820 IF y>ui THEN GOTO 3850 
3830 IF y<ui THEN GOTO 3860 
3840 IF y=iu THEN GOTO 3870 

3850 PEN 10:cg=INT(2G-un)/2:LOCATE cg,15:PRINT UPPER*(un*):LOCATE cg,16:PEN 3:PRINT ST RING*(un,238):GOTO 3900 






3860 PEN 10 : dg=I NT £ 20-deux ) /2 : LOCATE dg,15:PRINT UPPER*(deux*):LOCATE (^,lésPE*4 3:PRIMT STRING*(deux,238)':G0T0 3900 | { 

3870 PEN 3:LOCATE 3,15:PR1NT 'VOUS ETES LES":PEN 10sLOCATE 3,SPRINT STRING*! 15,238) 

3830 PEN 3:LOCATE 6,20:PRINT 'MEILLEURS*:PEN iOîLCCATE 6,2l:PRINT STRING*<9,238)iSOSUB 5800 

3890 GOTO 3910 I 

3900 LOCATE 2,2G':PRINT ’YOU ARE THE BE3 T ".‘PEN 10:L0CATE 2,2î:PRINT STRING*(18,238):G0SUB 5300 I 

3910 50SUB 3370 

3920 BORDER 1:PAPER G:PEN 1:CLS 

3930 LÛCATE 1,7:?RINT "ENCORE UNE PARTIE ?":LOCATE 1,0:PRINT STRING*Ü9,238> I 

3940 LOCATE 1,15!ÇR1NT- *- (0)U1 OU (MON -'tLOCATE 1,16:PR1NT STRING*120,238> i 

3950 kk*=INKEY*:IF kk*=" THEN 3950 

3960 IF kk*="0" OR kk*="o" OR kk*="N" OR kk*=V THEN 3970 ELSE 3990 

3970 IF kk*=*0" OR kk*="o" THEN 230 | 

3980 END , 

3990 LOCATE i,23‘.PRINT ‘Réponse NON CONFORME" : GOTO 3950 
4000 REM *** Les 14 au hasard 

4010 GOSUB 240:G0SUB 1310:G03UB 135G:50SUB 2750:G0SUB 780 | 

4020 hasard 2 INT(RND(11*14)+l . 

4030 IF hasard=l THEN GOSUB 540:G0T0 4020 

4040 IF hasard=2 THEN GOSUB 62Q:G0T0 4020 I 

4050 IF hasard=3 THEN GOSUB 720:GOTO 4020 
4060 IF hasard=4 THEN GOSUB 104Q.‘GOTO 4020 

4070 IF hasard=5 THEN GOSUB 1120:GOT0 4020 1 

4080 IF hasardé THEN GOSUB 1220:G0T0 4020 I 

4090 IF hasard=7 THEN GOSUB 1540:G0T0 4020 
4100 IF hasard=8 THEN GOSUB 1620:GOTO 4020 

4110 IF hasard=9 THEN GOSUB 1720:G0T0 4020 1 

4120 IF hasard=10 THEN GOSUB 2040:G0T0 4020 I 

4130 IF hasardai THEN GOSUB 2140:G0T0 4020 
4140 IF hasard=12 Tt€N GOSUB 2240:GOTO 4020 

4150 IF hasard=13 THEN GOSUB 2380:G0T0 4020 ' 

4160 IF hasard=14 THEN GOSUB 252D:GOTO 4020 | 

4200 REM *** Fin du jeu pour le joueur seul 
4210 MODE 0:PAPER 5:PEN 10:B0RDER 0:CLS 

422Q LOCATE 4,4:PRINT "C’EST FINI " i 

4230 LOCATE 4,5:PRINT STRING*<14,238) | 

4240 PEN 9:1g=(20-seu1)/2:LOCATE îg,9:PRINT UPPER*(seul*) 

4250 LOCATE lg,10:PEN 3:PRINT STRING*(seul,238) 

4260 PEN 10:LOCATE 6,14:PRINT "C’ETAIT I 

4270 PEN 3:LOCATE 6,15:PRINT STRING*(9,238) I 

4280 1F yy>90 THEN 4350 
4290 IF yy>70 AND yy<=90 THEN 4380 

4300 IF yy>50 AND yy<=70 THEN 4400 I 

4310 1F yy>30 AND yy<=50 THEN 4430 i 

4320 IF yy<=30 THEN 4460 

4350 LOCATE 4,20:PEN 10:PRINT ‘TRES - BIEN !" I 

4360 LOCATE 4,2i:PEN 3:PRINT STRING*! 14,238)ïGOSUB 58G0:G0T0 3920 | 

4380 LOCATE 6,20:PEN IOîPRINT "! BIEN !" 

4390 LOCATE 6,2l:PEN 3:PRINT STRING*(9,238):GOSUB 5800:G0T0 3920 

4400 LOCATE 4,2Q:PEN 10:PRINT "ASSEZ - BIEN !" ' 

4410 LOCATE 4.2HPEN 3‘.PRINT STRING*<14,238):GOSUB 5800:60TO 3920 | 

4*30 LOCATE 5,20:PEN 10:PRINT "MEDIOCRE I" 

4440 LÛCATE 5,2UPEN 3:PRINT STRING*<10,238>."GOSUB 58QQ:G0T0 3920 

4460 LOCATE 2,20:PEN 10:PRINT "MAL ! A REVOIR !" I 

4470 LOCATE 2,21".PEN 3:PRINT STRING*! 18,238) : GOSUB 58Q0:G0T0 3920 i 

4500 REM Differentes operations 

4510 PAPER OîMODE 1 :CLS:PRINT:PRINT TABÜ2) '* * * MENU * * *":LOCATE 12,3:PRINT STRING*(18,160) 

4520 PRINT:PRINT:PRINT TAB(5) "- (1) ADDITION* | 

4530 PRINT:PRINT TAB(5) (2F SOUSTRACTION" i 

4540 PRINT:PRINT TAS!5) V (3) MULTIPLICATION" 

4550 PkINT:PRINT TAB(5) (4) DIVISION" I 

4560 PRINT:PRINT TAB(5) (5) LES 14 AU HASARD | 

4570 PRINT:PRINT:PRINT TAB(4) "Choisissez UN NOMBRE DE 1 a 5":PRINT TAB<4) STRING*(33,126) , 

4580 60SUE 4980:L0CATE 19,21:INPUT 11:PRINT CHR*(7) 

4590 LOCATE 2,23:IF 11>5 OR 11<1 THEN PRINT NOMBRE INCORRECT -1 a 5- REESSAYEZ.":LOCATE 2,24:PRINT STRING*(37,126):G0T0 4580 
4600 ON 11 GOTO 500,1000,1500,2000,4000 • | 

4700 REM *** Prénom des joueurs 

4710 PAPER 2:PEN l:CLS:LOCATE 1,24:PRINT "APPUYER sur (ENTER) apres CHAQUE PRENOM" 1 

4720 LOCATE 2,5:PR1NT "Quel est le PRENOM du premier joueur 7 ":LOCATE 2,6:PRINT STRING*(33,126):L0CATE 15,9:INPUT un$:PRINT CHR*(7): I 
un=LEN(un*):LOCATE 17,10:PRINT STRING*(un,216i 

4730 LOCATE 1,14:PRINT "Quel est le PRENOM du deuxieme joueur 7 ":L0CATE 1,15:PRINT STRING*139,126):LOCATE 15,18:INPUT deux*:PRINT CH ! 

Rt(7):deux=LEN(deux*):LOCATE 17,Î9:PRINT STRING*(deux,216) 1 

47.40 GOTO 3260 | 

4900 CLS: PAPER 0:PEN 1 : REM «* Réglé du jeu 

4910 LOCATE 3,S:PRINT "VOULEZ - VOUS LA REGLE DU JEU ?":LOCATE 3,9:PRINT STRING*(35,207) 

4920 LOCATE 11,17:PRINT ■- (O)UI OU (N)ON -":LOCATE 11,1B:PRINT STRING*(20,216) I 

4930 ff*=INKEY*:IF ff*=“ THEN 4930 ELSE 4950 | 

4940 LOCATE 2,23:PRINT "Réponse NON CONFORME:0 ou N seulement.":GOTO 4930 
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4950 IF ff*=’0* OR ff*="o' OR ff*="N* OR ff$= , n" THEN 4960 ELSE 494D 
4960 IF OR ff$=”n" THEN RETüRN ELSE GOTO 500Ü 

4980 LOCATE 3,23:PRINT 'Appuyez sut" <ENTER) apres le CHOIX"ïRETURN 
500C CLS:PAPER 0:BORDER 1 
5010 GOSUB 5200 

5020 PEN lîPRINT:PRINT:PRINT 'il- Ce jeu se joue SEUL ou a DEUX.' 

5030 PRINT:PRINTîPRINT ‘-2- Chaque fois que tu réponds JUSTE tu marques DEUX POINTS.Si tu te TROMPES tu passes dans L’ORANGE 

sans marquer Je POINTS ....!* 

5D40 PRINT:PRINT:PRINT '-3- Une fois dans L’ORANGE tu as DEUX SOLUTIONS: - SI tu réponds JUSTE,tu 

reviens dans le VERT et tu MARQUES i POINT’ 

5050 PRINT 1 - Si tu réponds FAUX,tu passes dans le ROUGE,SANS POINT...' 

5060 GOSUB 5250: CLS îGC'SUB 5200 

5070 PEN i:PRINTSPRINT:PRINT *-4- Une fois dans LE ROUGE tu as DEUX SOLUTIONS: - SI tu réponds JU 

STE,tu reviens dans 1’ORANGE et tu MARQUES 1 POINT.’ 

5080 PRINT ’ - Si tu réponds FAUX,c’est ton ADVERSAIRE qui PRENDS LA SUITE DU JEU et qui débuté dans LE VERT ..* 

5090 PRINT:PRINT:PRINT '-5- Chaque adversaire a 3 CHANCES pour se racheter.Chaque réponse JUSTE MARQUE DES POINTS: 

- 2 dans le VERT - 1 dans les autres cas..." 

5100 GOSUB 5250:CLS:GOSUB 5200 

5110 PEN 1 :PRINT:PRINT:PRINT:PRINT:PRINT '-6- Si tu joues SEUL,chaque fois que, étant dans LE ROUGE,TU PERDS,TU PERDS 

UNE CHANCE,(tu en as 6),et TU RECOMMENCES DANS LE VERT..." 

5120 PRINT:PRINT:PRINT:PRINT '-7- Il ya un chiffre LIMITE a donner avant de débuter le jeu et il y a : - 5 possibilitees 

■D’OPERATIONS .. - 5 degres de DIFFICULTES pour la DIVISION et 3 pour les autres.. * 

5130 GOSUB 5250:CLS 

5160 IF reponse=l THEN GOSUB 5230:G0T0 51B0 

5170 LOCATE 1,1Q::PRINT 'BONNE CHANCE I 1 ':L0CATE 1,11:PRINT STRINGI!16,238):LQCATE 14,15:PRINT 'QUE LE MEILLEUR GAGNE !':L0CATE 
14,16:PRINT STRING*(26,238) 

5180 BORDER'1:GOTO 5250 

5200 PEN 3.-L0CATE 9,2:PRINT '* * REGLE DU JEU ♦ *' :LÛCATE 9,3:PRINT STRINGK24,):RETURN 

5230 LOCATE 13,10:PRINT 'BONNE CHANCE ! ! *:L0CATE. 13,11:PRINT STRIN6*(16,238):RETURN 

5250 PEN 3:LOCATE B,24:PRINT 'Appuyer <8> pour continuer':LOCATE 8,25:PRINT STRING*(26,208) 

5260 hh*=INKEY*: IF hhtO'3' THEN 5260 ELSE RETURN 
5500 REM *** Réponse juste avec reste dans la division 
5510 BORDER 16,7:PAPER#0,9:PEN#0,10:CL5#0 

5520 LOCATE 3,5:PRINT 'TU AS RAISON':PEN 3:L0CATE 3,6:PRINT STRING*(14,208) 

5530 IF repynse=l THEN 5610 

5540 PEN 10:LOCATE cd,10:PRINT UPPERt(ud$):L0CATE cd,ll:PEN 3:PRINT STRING*(ud,208> 

5550 PEN 10:LOCATE 5,15:PRINT 'C’ETAIT :":PEN 3:L0CATE 5,16:PRINT STRING*(9,208) 

5560 GOSUB 1900:IF cc<0 THEN toto=toto+2 ELSE toto=toto+l 

5570 PEN 7:LOCATE toto,22:PRINT ccÜF mm=3 OR mn=4 THEN 5580 ELSE 5600 

5580 IF reste<0 THEN place=place+2 ELSE place=place+l 

5590 LOCATE place,22:PRINT reste 

5600 GOTO 6470 

5610 PEN 10:LOCATE cs,10:PRINT UPPER*(seul$) :L0CATE cs,ll:PEN 3:PRINT STRING*(seul,208):GOTO 5550 
5650 REM *** Repense fausse avec reste dans la division 
5660 BORDER 0,1:PAPER#0,5:PEN#D,3:CLS#0 

5670 LOCATE 4,5:PRINT "TU AS TORT':PEN 13:L0CATE 4,ô:PRINT STRING*(12,131) 

5680 IF reponse=l THEN 5760 

5690 PEN 3:LOCATE cd,lü:PRINT UPPERt(udl):LOCATE cd,ll:PEN 13:PRINT STRING*(ud,131) 

5700 PEN 3:LOCATE 5,15:PRINT 'C’ETAIT :':PEN 13:L0CATE 5,16:PRINT STRING*(9,131) 

5710 GOSUB 1900:IF C C<0 THEN toto=toto+2 ELSE toto=toto+l 

5720 PEN 7:LOCATE toto,22:PRINT cc:IF m=3 OR mi>=4 THEN 5730 ELSE 5750 

5730 IF reste<0 THEN place=place+2 ELSE place=place+l 

5740 LOCATE place,22:PRINT reste 

5750 GOTO 6720 

5760 PEN 3:LOCATE cs,10:PRINT UPPER*(seul*)ïLOCATE cs,ll:PEN 3:PRINT STRING*<s^ul,208):GOTO 5700 

5800 REM *+* Musique de fin 

5810 FOR lec=l TO 17 

5820 READ note 

5830 SOUND 1,note,30,13 

5840 NEXT 

5850 DATA 239,213,190,239,239,213,190,239,190,179,159,159,0,190,179,159,159 
5860 RESTORE 
5870 RETURN 

6200 PAPER#0,12:PEN#0,l:CLS#0 

6210 LOCATE 1,3:PRINT '♦ * * DIFFICULTES * * *':L0CATE 1,4:PRINT STRING*<18,160) 

6220 LOCATE 1,7:PRINT '-(1) ENTIER + 

6230 LOCATE 1,10:PRINT "-(2! ENTIER + et - 
6240 LOCATE 1,13:PRINT '-(3) 3 CH. APRES . 

6250 LOCATE 1,17:PRINT 'NOMBRE DE 1 a 3 :':L0CATE 1,18:PRINT STRING$(17,126) 

6260 LOCATE 8,20:INPUT gg:PRINT CHR$(7) 

627D LOCATE 1,22:1F gg>3 OR gg<l THEN PRINT 'incorrect -1 a 3-':L0CATE 1,23:PRINT STRING*(17,126):G0T0 6250 
6280 RETURN 

6400 REM h» Réponse juste 

6410 BORDER 16,7:PAPER#0,9:PEN#0,1Q:CLS#0 

6420 LOCATE 3,5:PRINT 'TU AS RAISON':PEN 3:L0CATE 3,6:PRINT STRING*(14,208) 

6430 IF reponse=l THEN 6960 

6440 PEN lOîLOCATE cd,10:PRINT UPPER*(ud*):LOCATE cd,ll:PEN 3:PRINT STRING*(ud,208) 
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6450 PEN ÎOÎLCCATE 5,i5:PRINT "C’ETAIT :*:PEN 3:L0CATE 5,16:PRINT STRING*<9,208) 

6460 PBJ 7:tot=(18-total)/2îL0CATE tot,20:PRINT ab 

6470 FOR n=l T0 8:READ o:SOUND 1,o,15,5:NEXT n 

6480 DATA 100,90,100,110,120,110,100,0 

6490 RESTORE■■ IF j=l THEN j=ÜGCSUB 131Q:G0T0 6520 

6500 IF j=2 THEN-j=lîGOSUE 1310:G0T0 6570 


6510 IF j=3 THEN j=2:G0SUB 020:GOTO 6570 

6520 FOR t=l TO 1000:NEXT 

6530 IF reponse=l THEN 6930 

6540 IF ud*=un* THEN 6560 

6550 u>=uf‘+2 : v=v+l : GOTO 6620 

6560 y=y+2:x=x+l:G0T0 6620 

6570 FOR t=l TO 1000:NEXT 

6580 IF reponse=l THEN 6940 

6590 IF ud$=un* THEN 6610 

6600 u=ui+l:v=v+l:GOTO 6620 

6610 y=y+l:x=x+l 

6620 BORDER l:z=v+x:lF z=50 THEN GOSUB 3000 ELSE RETURN 

6630 GOTO 3500 

6650 REM #** Réponse fausse 

6660 BORDER 0,1 :PAPER#0,5:PEN#0,3:CLStO 

6670 LOCATE 4,5:PRINT "TU AS TORT":PEN 13:L0CATE 4,6:PRINT STRING$(12,131) 

6680 IF reponse=l THEN 6970 

6690 PEN 3 : LOCATE cd,10:PRINT UPPERtfud»):LOCATE cd,11:PEN 13:PRINT STRING*(ud,131> 

6700 PEN 3:L0CATE 5,15:PRINT "C’ETAIT :":PEN 13:L0CATE 5,16:PRINT STRING*!9,131) 

6710 PEN 7:tot=(18-total)72:LOCATE tot,20:PRINT ab 

6720 FOR u=127 TO 253:SOUND 1,u, 1,15 :îÆXT 

6730 IF j=l THEN j=2:G0SUB 1320:G0T0 6820 

6740 IF j=2 THEN j=3:60SUB 133Q:G0T0 6830 

6750 IF j=3 THEN j=i:GOSUB 1310 

6760 IF reponse=l THEN 6900 

6770 BORDER 1 : IF ud*=un* THEN 6790 

6780 ud$=un$:ud=LEN(ud$):cd=INT(1B-ud)/2:v=v+1:60T0 6800 

6790 ud*=deux*:ud=LEN(udt):cd=INT(18-ud)/2:x=x+l 

6800 m=m+l:z=v+ x :GOSUB 3000 

6810 IF m=6 OR z=50 THEN 3500 ELSE RETURN y. 

6820 FOR t=l TO 10D0:NEXT 
6830 IF repense^ THEN 6910 * 

6840 BORDER 1 : IF udi^unî THEN >;=x+l ELSE v=v+l 
6850 z=v+x:IF z=50 THEN GOSUB 3000 ELSE RETURN 
6860 GOTO 3500 

6900 œ=TTi+l : z=z+l : GOSUB 330G:G0T0 6920 
6910 z=z+l:60T0 6950 

6920 BORDER 1 : IF z=50 OR m=6 THEN 4200 ELSE RETURN 
6930 yy=yy+2:z=z+l:GOTO 6950 
6940 yy=yy+l:z=z+I 

6950 BORDER IMF z=5Q THEN GOSUB 3300 ELSE RETURN 
6955 GOTO 4200 

6960 PEN 3:LOCATE cs,10:PRINT UPPER*(seul$):LOCATE es, 11 :PEN 13:PRINT STRING*(seul,203)-"GOTO 6450 
6970 PEN 3:LOCATE cs,10:PRINT UPPERÎ S seul$)îLOCATE es,11:PEN 13:PRINT 3TRING*<seul,131):GOTO 6700 

7000 PBJ 4:LOCATE 8,16:PRINT USING’#####JJ#" ja.'LOCATE 8,18:PRINT USING"#######’ ïbîPEN 1:LOCATE 3,20:PRINT STRING*( 12,131ÜL0CATE 2,22 
SPRINT "=":RETURN 

7020 PEN 4:LOCATE 8,16:PRINT USING 8 ##»###.### a ;a:LOCATE 8,18:PRINT USI!të*######.### , 5b:PEN 1:LOCATE 3,20:PRINT STRING*!15,131):LOCAT 


E 2,22:PRINT "=":RETURN 


7100 REM **♦ Tableau de présentation des operations 
7110 PAPER#0,11 :PENIO,5•’ :CLS#0 

7120 IF reponse=l THEN LOCATE es,UPEN 6:PRINT UPPERÎtseui») 

7130 cd=INT(18-ud)/2ïLOCATE cd,l:PEN 6:PRINT UPPER*(udi) 

7140 PEN 5:LOCATE 1,5:PRINT "NBR. MAX. :":-PEN 14:L0CATE U,5:PRINT d:LOCATE 1,6:PEN 7:PRINT STRING*! 10,126) 

7150 PEN 2:LOCATE 1,B:PRINT "NBR 1:*:PEN 7:L0CATE 1,9:PRINT STRING*(7,126) 

7160 PEN 9:LOCATE MWPRINT "NBR 2:":PEN 7:L0CATE 1,12:PRINT STRING*(7,126) 

7170 PEN 5ïLOCATE 8,14:PRINT "LES 2 NBR :’:PEN 7:L0CATE 1,15:PRINT STRING*(18,126):RETURN 
7200 REM *** Choix du joueur qui commence le jeu 
7210 h=l+INT(2*RND!l)) 

7220 IF h=l THEN ud*=un* ELSE ud$=deux* 

7230 PENJJO, I :CLSIO:LOCATE 7,3:PRINT "C’EST" : LOCATE 7,4:PEN 7:PRINT STRING*(5,126) 

7240 PEN l:ud=LEN(ud*):cd=INT(19-ud)/2:L0CATE cd,10:PRINT UPPER*(ud*)iLOCATE cd,lt:PEN 7:PRINT STRING*(ud,216) 
7250 LOCATE 3,17:PEN SPRINT "QUI COMMENCE." : PEN 7:LÛCATE 3,18:PRINT STRING$(14,216) 

7260 GOSUB 3260 

7270 j=1 :x=0:y=0:v=0:w=0:m=0:z=0:RETURN 
7300 REM *** Début du jeu pour le joueur seul 
7310 PENSO,1 :CLS#0 

7320 seu1=L£N(seu1*):cs=INT(19-seu1)/2:LOCATE 4,3:PRINT "ATTENTION !*:PEN 7:L0CATE 4,4:PRINT STRING*(11,126) 
7330 LOCATE cs,10:PEN 1:PRINT UPPER$(seul*):LOCATE cs,ll:PEN 7:PRINT STRING*(seul,216) 

7340 LOCATE 3,17:PEN 1 SPRINT "C’EST PARTI ! * :PEN 7:L0CATE 3,18:PRINT STRING*!14,216) 

7350 GOSUB 3260 

7360 yy=0:m=0:z=0:j=1 :RETURN 
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On a toujours besoin d’un petit 
agenda (informatique) chez 
soi... Finis les adresses et télé¬ 
phones notés sur un coin de 
nappe, une feuille volante et per¬ 
dus deux jours plus tard... sur¬ 
tout qu’on n’a pas toujours le 
bon annuaire sous la main ou 
l’adresse complète demandée par 
les services du 12. Vous pourrez, 
dans cet agenda “ficher” 500 
abonnés. La saisie et l’utilisation 
de ce programme devront se 
faire en majuscules. Différentes 
options vous seront proposées : 

- Création d’un annuaire : vous 
devrez entrer nom, prénom, 
adresse et bien sûr numéro de 
téléphone. La sauvegarde des 
éléments saisis se fait automati¬ 
quement en revenant au menu 
principal. 

- Recherche d’un numéro : vous 
entrez le nom et prénom de votre 
correspondant et s’affichent 
adresse et téléphone. 

- Ajout : cette option vous per¬ 
met d’ajouter un correspondant 
à votre Fichier. 

- Chargement des données : per¬ 
met de recharger des données 
précédemment sauvegardées. 

- Liste des abonnés : donne la 
liste exhaustive des abonnés dans 
vos fiches. 

- Modifications : permet de 
modifier un ou plusieurs élé¬ 
ments d’une fiche-abonné. Vous 
pouvez modifier un critère seu¬ 
lement sans avoir à retaper toute 
la fiche. 

- Annulation d’un abonné : 
vous vous êtes fâché avec votre 
belle-mère, vous pouvez faire 
disparaître toute trace d’elle 
dans votre Fichier.. . Encore une 


PAS DE: PAWIpOE 

!o'em a i a ncoke 
4^9 , HOM... 


20 REM ** AMSTRAD CPC A64 (+664 ef 6128) ** 

30 REM ** NOM DU PROGRAMME "PROGRAM ANNUAIRE" ** 

40 REM ** PERRIN SERGE ** , „ 

50 REM +* GESTION COMPLETE D’UN ANNUAIRE TELEPHONIQUE «* 

POUVANT ETRE ADAPTE PAR LE PRINCIPE A LA GESTION DE FICHIER 


60 REM «* PROGRAMME 
70 MODE 2 
B0 BORDER 10 
90 DIM nomt(5QQ) 

100 DIM num*(500) 

110 DIM adr»(500) 

120 PRINT FRE(") :CLS 
130 CLS 

140 PRINT‘»<hhhhhhhhhhhhhhhhhhih**«hhh* M E N 
150 PRINT 

t6û PRINT TAB(20)"CREATION DE L’ANNUAIRE -1-" 

170 PRINT 

180 PRINT TAB(20)"RECHERCHE D’UN NUMERO -2-" 

190 PRINT 

200 PRINT TAB(20>"AJOUT ‘3- 

2^o 

220 PRINT TAB( 20)"CHARGEMENT DES DONNEES -4-" 

230 PRINDPRINT TAB(20)"LISTE DES ABONNES -I 

240 PRINT!PRINT TAB120)"MODIFICATIONS H 

25D PRINTîPRINT TAB (20)"ANNULATION D’UN ABONNE 
260 PRINT:PRINT:PRINT:PRINT"************************' 


280 PRINT*VOTRE CHOIX : "i" (LE TRAVAIL SERA EXECUTER 
290 C$=INKEY$:JF C*=""60TC 290 
300 IF C$=T THEN 380 
310 IF C*="2" THEN 1040 


320 IF C*="3" THEN 1320 


EN LETTRES MAJUSCULES 


)• 
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330 IF C$=*4* THEN 1600 

340 IF C$="5" THEN 1740 

350 IF Ct="6" THEN 610 

360 IF Ci=’7" THEN 2200 ELSE 290 

370 REM****»******»***«*«**+ CREATION J************************************** 

380 CLS: PRINT " ********«•*****•***********-»***** CREATION «***»******+**♦*««***********“ 

390 PRINT:PRINTi'PRINT:PRINT:PRINT'SI ERREUR APPUYER SUR (E) 

POUR CONTINUER APPUYEZ SUR (O* 

391 A$=INKEY$:IF A$="" GOTO 391 

392 IF AÏ=*E" OR A*="e" THEN 130 

393 IF A$=’C" OR A$="c" THEN 402 ELSE 391 

402 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:INPUT"NOMBRE D’ABONNES PUIS (ENTER) : *,d 
410 FOR n=l TO d 

420 PRIMT:INPUT'NOM PRENOM : ",nom$(n> 

430 INPUT*ADRESSE : 1 ,adr*(n> 

440 INPUT"NUMERO DE TEL. ! ",num*<n):NEXT 
450 t=d 

460 PRINTïPRINT:PRINT"POUR ENREGISTRER VOS DONNEES APPUYEZ SUR (E) 

POUR ANNULER APPUYER SUR (A)' 

470 A$=INKEY*:1F A$="" GOTO 470 

480 IF A$="E" OR A$=*e" THEN 500 

490 IF A$="A" OR A$="a" THEN 130 ELSE 470 

500 CLS:LOCATE 28,12:PRINT"VEUILLEZ PATIENTER S.V.P. 1 :PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
510 SPEED WRITE 1 
520 OPENOUT"ANNUAIRE" 

530 PRINTI9,t 
540 FOR n=l TO t 
550 PRINTI9,noit$(n) 

560 PRINT#9,adr$(n) 

570 PRINT#9,nuni$(n) 

580 NEXT:CLOSEOUT 
590 GOTO 130 

600 REM**************«************ MODIFICATIONS ***************************** 

610 CLS: PR INT" *M*m**«HHf*#«f #**♦***« MODIFICATIONS ************************** “ 

620 A=0 

630 INPUT "SI ERREUR APPUYER SUR (E) PUIS SUR (ENTER) 

QUEL NOM VOULEZ-VOUS MODIFIERîNOM PRENOM PUIS (ENTER): ",na»$ 

640 IF nom$="E“ OR nom$="e" TIEN 130 

650 FOR n=l TO t 

660 1F no(TiS=norri$ ( n ) THEN 700 

670 NEXT n 

680 IF AOO THEN 710 

690 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT TAB(20)"INCONNU OU FAUTE D'ORTHOGRAPHE.RECOMMENCEZ":PRINT:PRINT:PRIN 
T : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT :GOTO 980 

700 PRINT:PRINT"-'in"- "i nom*(n);" " adr$(n)i" "num$(n):M=n:A=A+l:GOTO 670 
710 IF A=1 THEN 720 ELSE 2140 

720 PRINT:PRINT:PRINT "QUELLES COORDONNEES VOULEZ-VOUS MODIFIER ? " 

730 PRINT: PRINT" NOM PRENOM -1- ADRESSE 

TEL. -3-" 

740 PRINT" FIN POUR CET ABONNE -4-* 

750 PRINT" ERREUR -5- 

760 PRINT : PRINT î PRINT : PRINT : PRINT"" VOTRE CHOIX : " 

770 Q$=INKEY*:IF Q$="“ GOTO 770 
780 IF Qt=TTHEN 830 
790 IF Q*="2" THEN 860 
BOO IF Q$=*3"THEN 890 
810 IF Q«="4" THEN 970 
820 IF Qt="5" THEN 620 ELSE 770 
830 PRINT: PRINT*APPORTEZ VOS MODIFICATIONS” 

840 PRINT:PRINT:PRINT 

850 INPUT'NOM PRENOM PUIS (ENTER) : ",noni$(M):GOTO 910 
860 PRINT: PRINT*APPORTEZ VOS MODIFICATIONS" 

870 PRINT:PRINT:PRINT 

880 INFH7T"ADRESSE PUIS (ENTER) :. ",adrt(M):GOTO 910 
890 PRINT: PRINT“APPORTEZ VOS MODIFICATIONS" 

900 INPUT"NUMERO DE TEL. PUIS (ENTER) : ’,nua»(M) 

910 PRINT:PRINT:PRINT 

920 PRINT'AUTRES MODIFICATIONS POUR CET ABONNE (07N) 

930 0$=INKEYt:IF 0*=""GOTO 930 
940 IF 0$="0" OR 0$="o" THEN 960 
950 1F 0$="N" OR 0*="n" THEN 970 ELSE 930 
960 CLS:PRINT:PRINT noiriî(M);" "iadr$(M)i" ,*inun*(M):GOTO 720 

97D as 

980 PRINT" MODIFICATIONS POUR UN AUTRE ABONNE APPUYEZ SUR (M) 

FIN DES MODIFICATIONS APPUYEZ SUR (R) " 

990 M$=INKEY$:IF M$=""GOTO 990 
1000 IF M*="M" OR Mt=V THEN 610 
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1010 1F M$='R" OR ft*=V THEN 1020 ELSE 990 

1020 CLS.-LOCATE 28,12:PRÎNT*VEUILLEZ PATIENTER B.V.P. " :PRINT:PRÎNT:PRIMT:PRÎNT: GOTO 520 
1030 REM *********************** RECHERCHE *********************************** 

1040 CLS : PRIMT'**************************** RECHERCHE t*************#****************** 1 
1050 2=0 

1060 PRINT:INPUT“SI ERREUR APPUYEZ SUR (E) PUIS SUR (ENTER) 

INSCRIRE LE NOM PRENOM PUIS (ENTER) : S nam* 

1070 IF noiri*="E* OR noir^'e' THEN 130 

1080 FOR n=l TO t 

1090 1F nomt=namt(n) THEN 1150 

1100 NEXT 

1110 FOR n=l TO t 

1120 IF nom$=namî(n) THEN 1260 

1130 NEXT 

1140 PRINT:PRINT:PR!NT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT: PRINT TAB(20)"INCONNU OU FAUTE D’ORTHOGRAPHE.RECOMMENCEZ":GOTO 1250 
1150 Z=Z+1 

1160 PRINT :PRINT:PRINT'NOM PRENOM : 1 inom$(n): PRINT: PRINT 1 ADRESSE : , Udr*(n):PRINT:PRINT , TEL. : ’i num*(n) 

1170 IF 1=2 THEN 1180 ELSE 1100 

1180 Z=0:PRINT:PRINT:PRINT:PRINT:PRINT*POUR CONTINUER LA LISTE * ’i nom* !" * APPUYER SUR (L)' 

1190 PRINT*POUR UkE NOUVELLE RECHERCHE APPUYEZ SUR (N)* 

1200 PRINT'POUR REVENIR AU MENU APPUYER SUR (M)* 

1210 at=INKEY*:IF a$="GOTO 1210 

1220 IF a*=‘L“ OR a*=’l* THEN 1100 

1230 IF a*=*N" OR a*=*n* THEN 1040 

1240 IF a*='M* OR a*=V THEN 130 ELSE 1210 

1250 LOCATE 1,25:PRINT"VOULEZ-VOUS UNE AUTRE RECHERCHE ? (0/N)*:G0T0 1270 

1260 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT'FIN DE LA LISTE POU 
R * "i nam* * VOULEZ-VOUS UNE AUTRE RECHERCHE (0/N) * 

1270 Rt=INKEY*:IF R*=**GOTO 1270 
1280 IF R*=*0” OR R*='o’ THEN 1040 
1290 IF R*='N* OR R*=*n* THEN 130 ELSE 1270 
1300 GOTO 130 

1310 REM*************************** AJOUT ************************************* 

1320 CLS: PRINT , **************#************* SUPPLEMENT *****************************" ’ 

1330 PRINT:PRINT:PRINT:PRINT*VOUS POSSEDEZ ACTUELLEMENT-*; t '-ABONNES* 

1340 PRINT:PRINT:PRINT'LA CAPACITES MAXIMUM EST 500 ABONNES" 

1350 s=0 
1360 s=s+l 

1370 PRINT:PRINT:PRINT:PRINT 
1380 PRINT'SI ERREUR APPUYER SUR CE) 

POUR CONTINUER APPUYER SUR (C) * 

1390 P*=INKEYt:IF P$=" GOTO 1390 

1400 1F P$=*E* OR P*=’e* THEN 130 

1410 IF P$=*C* OR P*=*c* THEN 1420 ELSE 1390 

1420 PRINT : PRINT : PRINT : INPUT’NOM PRENOM : \nom«t+s) 

1430 INPUT*ADRESSE : *,adr$(t+s) 

1440 INPUT'NUMERO DE TEL. : *,num$(t+s) 

1450 PRINT 'VOULEZ-VOUS UN AUTRE SUPPLEMENT ? (0/N) * 

1460 kt=INKEY*:IF k$="GOTO 1460 

1470 IF kt=*0* OR k4=*a* THEN 1360 

1480 IF kt=*N* OR k*=*n* THEN 1490 ELSE 1460 

1490 CLS:LOCATE 28,12:PRINT*VEUILLEZ PATIENTER S.V.P.* :PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 

1500 t=t+s 

1510 SPEED WRITE 1 

1520 QPENÜUT’ANNUAIRE* 

1530 PRINT#9,t 
1540 FOR n=l TO t 
1550 PRINT#9, no»$(n) 

1560 PRINT#9,adrt(n) 

1570 PRINT#9, numt(n):NEXT 
1580 CLOSEOUT 
2590 60T0 130 

1600 CLS: PRINT'**********#******#*************** CHARGEMENT t********************************* 

1610 PRINT:PRINT:PRINT:PRINT:PRINT'SI ERREUR APPUYER SUR (E) 

POUR CONTINUER APPUYER SUR (C) ' 

1620 S*=INKEY$:IF S*=" GOTO 1620 
1630 IF Sf=‘E‘ OR S$='e' THEN 130 
1640 IF S$='C' OR S$='c' THEN 1650 ELSE 1620 

1650 CLS:LOCATE 28,12:PRINT*VEUILLEZ PATIENTER S.V.P.':PRINT:PRINT:PRINT:PRINT:PRINT:OPENIN'ANNUAIRE' 

1660 INPUT#9,t 
1670 FOR n=l TO t 
1680 INPUT#9,nomt(n) 

1690 INPUT#9,adr$(n) 

1700 INPUT#9,num$(n) 

1710 NEXT 
1720 CLOSEIN 
1730 GOTO. 130 
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1740 CLS:PRINT'*****************m****«***»m** EDITION ***»*■**♦******♦**«************«*■ 

175D PRINT:PRINT:PRINT:PRINT:PRINT“SI ERREUR APPUYER SUR (E) 

POUR CONTINUER APPUYER SUR (C) * 

1760 L$=INKEY$:3F L$=" GOTO 1760 

1770 IF L*='E" OR L$=*e" THEN 130 

1780 IF Lt="C" OR L$=*c" THEN 1790 ELSE 1760 

1790 CLSîLOCATE 28,12:PRINT 1 VEUILLEZ PATIENTER S.V.P." 

1800 FOR i=l TO-t 
1810 ni=i 

1820 FOR j=i TO t 

1830 IF ncmKjXnaiiitinii) THEN mi=j 

1840 NEXT j 

1850 aî=gaii$(i) 

1860 num*(i)=nQm*<mi) 

1870 nomt(ini)=aî 
1880 bt=adrî(i) 

1890 q$=num$(i) 

1900 adr$!i)=adr$(mi) 

1910 num$(i)=nuiïi$(oii) 

1920 adrt(rai)=b$ 

1930 nuiri$imi)=q$ 

1940 NEXT i 
1950 u=3 
1960 A=t 

1970 FOR n=l TO A 

1980 IF nQir.$<n)= , ZZ" THEN 2430 

1990 NEXT n 

2000 CLS:FOR n=l TO t 

2010 PRINT:PRINT:PRINT TAB<25!"-";ni"-"iTAB<32! nom$!n):PRINT:PRINT TAB(25! adr*(n):PRINT:PRINT TAB134) numt(n) 

2020 IF n=w THEN 2090 
2030 PRINT 
2040 NEXT 

2050 PRINT:PRINT:PRINT:PRINT 

2060 PRINT'FIN DE L’EDITION.POUR REVENIR AU MENU APPUYER SUR (R) 1 

2070 R$=INKEY$:IF Ri=""GOTO 2070 

2080 IF R$="R" OR R$=’r* THEN 130 ELSE 2070 

2090 w=w+3 

2100 PRINT: PRINT 'POUR CONTINUER L’EDITION APPUYER SUR (C) POUR REVENIR AU MENU APPUYER SUR 

(R) ‘ 

2110 Z$=INKEYî:IF Z$="" GOTO 2110 

2120 IF Z*="C" OR Z$=‘c' THEN 2030 

2130 IF Z$='R' OR Z$=*r" THEN 130 ELSE 2110 

2140 PRINT: INFUT*INCRIVEZ LE NUMERO DE L’ABONNE A MODIFIER 

PUIS APPUYER SUR (ENTER) : *,n , 

2150 M=n 

2160 IF n)t THEN 2190 

2170 CLS:PRINT:PRINT’NOM PRENOM : * ; nam* ( r> > : PR I NT : PR I fvIT " ADRESSE : 1 iadrt(n) : PRINT: PRINT" tel. : ";num»(n) 

2180 GOTO 720 

2190 PRINT:PRINT:PRINT" ERREUR":GOTO 2140 

2200 CLS : PR] NT” ****** ****************«^******** ANNULATION ♦«♦♦«♦««♦m»****»*******»*»***" 

2210 A=0 

2220 PRINT:PRINT:PRINT:PRINT:INFUT"SI ERREUR APPUYER SUR (Ei PUIS (ENTER) 

INSCRIVEZ L'ABONNE A ANNULER PUIS (ENTER) : ",AN$ 

2230 FOR n= 1 TO t 

2240 IF nomt(n)=AN$ THEN 2280 

2250 NEXT n 

2260 IF AOO THEN 2440 

2270 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT TAB(20)"INCONNU OU FAUTE D’ORTHOGRAPHE.RECOMMENCEZ" .'GOTO 2220 
2280 PRINT:PRINT ni" ";nom*(n)i" "iadrtin);" ";num*(n):A=A+1:B=n:GOTO 2250 

2290 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT: PRINT TAB(10)"ETES-VOUS CERTAIN DE VOULOIR SUPPRIMER CET ENREGISTREMENT 1 (0/N)" 

2300 I$=INKEYt:IF It="" GOTO 2300 

2310 IF I$="N" OR I*="n" THEN 130 

2320 IF I$="0" OR I$="o" THEN 2330 ELSE 2300 

2330 non$(B)="ZZ" 

2340 adr*(B)="ZZ" 

2350 niim$(B)=“ZZ" 

2360 CLS: LOCATE 28,12:PRINT"ANNULATION EFFECTUEE" 

2370 FOR G=1 TO 200G:NEXT 

2380 PRINT:PRINT:PRINT:PRINT:PRINT"VOULEZ-VOUS UNE AUTRE ANNULATION ? (O/N) 

2390 A$=INKEY$:IF A$=*" GOTO 2390 

2400 IF A*="0" OR A$="o" THEN 2220 * 

2410 IF A$="N* OR A*='n" THEN 2420 ELSE 2390 
2420 GOTO 1020 
2430 t=t-l:GOTO 2000 
2440 IF A=1 THEN 2290 

2450 PRINT:PRINT:PRINT:INPUT"INSCRIVEZ LE NUMERO CORRESPONDANT A L’ANNULATION PUIS (ENTER) : ",n 
2460 CLS:PRINT: PRINT:PRINT:PRINT:PRINT:PRINT:PRINT ni" ";nom*(n>i" "iadr$(n)i" ";nu«*(n):ï=n:6OÎ0 2290 
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SPECIALISTE AMSTRAD 
DU SUD-EST 

CBI Informatique — 6 rue Mazarine — 13100 AIX-EN-PROVENCE 


PROMO SPÉCIALE AMSTRAD EXPO 

IMPRIMANTE PERSONNELLE COULEUR : OKIMATE 20 
2990 F ou 3590 F avec la souris AMX Mouse. 

80 colonnes - 80 cps - Impression listing - Impression qualité courrier - Graphique haute résolution couleur 
(144x 144 points par pouce) - Traction - Friction - Papier normal, thermique ou transparent en acétate pour 
rétroprojection. 

Matrice 1 8 par 9 en qualité listing ou 1 8 par 1 8 en qualité courrier. Livrée avec son câble AMSTRAD et logi¬ 
ciel hardcopy graphique. 



Rubans okimatqnoir ou couleur . 99F □ 

Papier thermique en rouleau de 30 m . 49 F □ 


LE LOGICIEL UTILE 

TURBOCOPYII 290 F □ 

(disquette) 

Transfère vos programmes de cassette sur dis¬ 
quette; disquette sur cassette; disquette sur dis¬ 
quette. Supprime la protection Basic. 


Support rouleau papier thermique . 99 F j 

EXTENSIONS --- 

Ruban imprimante AMSTRAD (le lot 

de 2) .. 175 F TTC I 

Lecteur de cassettes spécial micro . 380 F TTC □ 

Cordon magnéto. 59 F TTC L1 

Câble imprimante. 1 45 F TTC L! 

* Interface série RS 232 C. 585 F TTC C 

Synthétiseur vocal en anglais .... 390 F TTC □ 

Crayon optique pour couleur 

uniquement. 290 F TTC □ 

Crayon optique DART + logiciel graphique 
(couleur monochrome) 

Cassette . 475 F P 

Disquette. 510 F [ 1 

1 6r lecteur de disquette. 1 990 F TTC P 

2 e lecteur de disquette. 1 590 F TTC f " 

Adaptateur Péritel. 490 F TTC □ 

Synthétiseur vocal français . 480 F TTC P 


LES CADEAUX UTILES 

La housse 149 F TTC □ 

de protection moniteur + clavier 


La boîte de rangement 
disquettes 3" 199 F TTC □ 


LES LIVRES DU MOIS 

de chez Micro Application 

N° 14 Routines utiles pour CPC.149 F T ^ 

N° 11 Montages extentions et 

périphériques.1 99 F \ ■ 

N° 12 Livre du Corn. 2.2 et 3.0.149 F P 

Bible du programmeur 6 128 . 199 F ) 





.Ville 


VOICI MON BON DE COMMANDE 

Cocher tous les articles qui vous intéressent ou faites une feuille à part 
Faites le total + frais de port (30 F pour un achat inférieur à 500 F — 40 F pour moins de 1 000 F — 

Gratuit à partir de 1 000 Fl. 

Nom _Prénom _Tél. __ 

Adresse j_ 

Code Postal _ 

Mon CPC est un : 

□ 464 Monochrome 

□ 464 Couleur 

□ 664 Monochrome 

□ 664 Couleur 

□ 6128 Monochrome 

□ 61 28 Couleur 


Mode de paiement : 
: - Chèque (ci-joint) 


( ' Contre-remboursement 


Envoyer le tout à : 

CBI Informatique 6 rue Mazarine 
13100 AIX-EN-PROVENCE 


OKIMATE 20 


LOGICIELS 

SELECTIONNES 



Cassette 

Disquette 

Fantastique voyage. 

110 F P 

170 F P 

Jeu d’échec 3 D version 



française. 


290 F P 

Combat lynx. 

11 o f n 

1 70 F P 

3 D Flight. 

140 F n 

1 70 F P 

Flighter pilot. 

i io f n 

1 60 F P 

Flight path 737 . 

ioo f n 


Interdictor Pilot. 

235 F P 


Roland in Space. 

i io f n 

1 70 F P 

Centre court tennis . 

99 F n 

1 55 F P 

Allen 8. 

135 F n 


Beach Head . 

125 F P 

1 60 F P 

Code name Mat. 

99 F P 


Defendor Die. 

99 F P 


Dun Daragh . 

1 30 F : ' 


Macadam Bumper. 

1 50 F 

230 FP 

Les diamants de la peur.... 

130 F 


Forth. 

245 F f 


Pascal. 

390 F P 


Tassword. Traitement de texte pro. 6 128 . 

. 310 F n 

Tassword 464 et 664 . 


. 290F □ 

Tassword 464 . 

.. 145 F □ 


Bank. 

180 F 

345 F P 

Udos Version 1.3. 


380 F P 

Comptabilité générale. 

406 F P 

700 F P 

Turbo Pascal. 


800 F □ 

Rallyll. 


220 F P 

Sorcery Plus. 


160 F [ 

Meurtre à grande vitesse . . . 

180 F : 

220 F 

Assembleur-Désassembleur 

248 F P 


Harrier Attack. 

99 f n 

150 F 

Jump Jet. 

i io f n 

160 F ' 

Gestion de fichier pro. 


360 F 

Autoformation à 

m 


l’assembleur. 

195 F 


Dragontorc. 

1 10 F P 


The Rocky Horror Show . . . 

105 F 


Graphologie. 

120 F [7 


Chirologie (lignes de la main) 

145 F r 


Red Arrows .. 

125 F P 

165 F 

Mission Delta. 

1 20 F f 

165 F P 

Monopoly. 

130 F r 


Bridge Player. 

1 10 F P 


3 D Grand Prix. 


180 F □ 

Comment guérir le SIDA 



eo 110 Ko. 

160 F □ 


ORPHEE. 


340 F P 

Bataille d’Angleterre. 

140 F □ 

220 F P 

3 D Stund Rider. 

110 F □ 


Mandragore. 

210 F n 


Hockey sur glace. 


180 F P 

Read over Moscow. 

120 F n 


Tossprint. 5 polices de caractères 



supplémentaires. 

170 F □ 

210 F ü 


D Base II . 790 F U 

Multiplan. 490 F 

Tous les prix des logiciels sélectionnés ci-dessus sont 


donnés Toutes Taxes Comprises. 
























































































LLlLLLE 


Dallas 


mmE 




mKÊÊHÊÊ 

Si vous vous sentez des âmes de 
“requins”, vous pourrez, grâce 
à ce jeu, vous prendre pour J. R. 
(ou son disciple...). Dallas est 
une simulation d’entreprise. 
Après avoir peiné à saisir ce long 
programme vous aurez 
l’immense satisfaction d’être 
récompensé de vos efforts en 
étant promu PDG d’une entre¬ 
prise de production de pétrole. 
Voici, dans ses grandes lignes le 
déroulement du jeu : 

• Vous devrez tout d’abord 
emprunter de l’argent pour pou¬ 
voir acheter vos puits (douze 
puits à vendre, de production 


, , 

inégale). 

• Vous devrez ensuite engager 
des ingénieurs et des ouvriers 
pour assurer l’exploitation du 
puit. 

• Attention, les salaires eôutent 
chers... et les intérêts des 
emprunts sont souvent à la limite 
du supportable. 

• Un bon joueur pourra aisé¬ 
ment développer ses industries. 
Le jeu devient alors de plus en 


stocks à gérer. . d’ingénieurs (1 pour 30 ouvriers) 

• Vous pouvez également spécu- vous aurez à faire face à des 
1er sur l’achat et la revente de mouvements de grève qui vien- 
barils au bon moment... Un dront perturber rendement, 
développement suppose des production... 

capitaux, des locaux, des frais et • Il faut savoir que vous êtes à 
des chefs du personnel pour la tête de deux stocks différents : 
encadrer les ouvriers. celui qui est dans les entrepôts et 

• La difficulté augmente au frn le stock de barils “à la produc- 
et à mesure du jeu. Chaque opé- tion”, à côté des puits, 
ration dure une journée ; il faut Toutes les informations complé- 


savoir s’organiser et faire passer 


plus casse-tête, car vous devrez les transactions importantes 
faire face à des impôts (35 °?o sur avant les autres. 


le capital “liquide”) et plus vous • Vous n’êtes jamais à l’abri des 
vous développez et plus vous “coups durs” (incendies, acci- 
aurez de salaires à donner et de dents...). S’il n’y a pas assez 

Û •. • ! 1 $ 


mentaires sont incluses dans le 
jeu... Attention aux faillites et ne 
vous découragez pas... 


Guillaume Lamothe 


\ 'PRESENTATION DALLAS par Guillaume LAMNOTHE 

2 MODE 1 

3 SPEED INK 3Q,'3Q:INK 0,1:PAPER 0:PEN 1 

4 BORDER 1 

5 ENV 1,10,-1,2 :ENT 1,10,40,2 

6 INK 1,2 :INK 2,26:INK 3,6 

7 ’ LETTRE D 

8 PLOT 30,314,1 

9 DRAW 30,379 

10 DRAW 90,379:DRAW 110,374:DRAW 110,319:DRAW 90,314:DRAW 30,314 

11 PLOT 50,324:DRAW 50,369:DRAW 70,369:DRAW 90,364:DRAW 90,329:DRAW 70,324:DRAW 50,324:DRAW 60,329:PL0T 60,329:DRAW 60,369:PL0T 30, 
79.‘DRAW 40,384:DRAW 100,3B4:DRAW 120,379:DRAW 120,324:DRAB 110,319 

12 ’ LETTRE A 

13 z’/.=l 

14 XX=0 

15 PLOT X7.+130,314, z7. : DRAW X7.+130,379: DRAW X7.+210,379:DRAW XX+210,314:DRAW XX+190,314:DRAW X7.+190,3A4 :DRAW XX+150,344:DRAW XX+150,3 
4:DRAW XX+130,314 

16 PLOT X/C+150,354:DRAW XX+150,369:DRAW XX+190,369:DRAW X7.+190,354:DRAW XX+150,354 

17 PLOT XX+150,314:DRAW XX+160,319:DRAW XX+160,344:PLOT X%+160,354:DRAW XX+160,369:PL0T X7.+130,379:DRAW XX+140,384:DRAW XX+220,384: 
RAW XX+220,319:DRAW XX+210,314 

18 PLOT XX+210,379:DRAW XX+220,384 

19 IF QX=1 THEN GOTO 30 

20 ’ LETTRE L 

21 PX=0 

22 PLOT PX+310»314,2:DRAW PX+23U,314:DRAW PX+230,379:DRAW PX+250,379:DRAW PX+250,324:DRAW PX+310,324:DRAW PX+310,314:DRAW PX+320,31 
:DRAW PX+320,329:DRAW PX+260,329:DRAW P’/.+260,384:DRAW PX+240,384:DRAW PX+230,379 

23 PLOT PX+250,379:DRAW PX+260,384:PLOT PX+310,324:DRAW PX+320,329 

24 IF UX=1 THEN GOTO 28 

25 PX=100 

26 WX=1 

27 GOTO 22 

28 XX=300 

29 QX=1 :zX=3: GOTO 15 

30 PLOT 530,324:DRAW 530,314:DRAW 610,314:DRAW 610,349:DRAW 550,349:DRAW 550,369:DRAW 610,369:.DRAW 610,379:DRAW 530,379:DRAW 530,33 
:DRAW 590,339 

31 DRAW 590,324:DRAW 530,324:DRAW 54Q,329:DRAW 590,329:PL0T 610,314::DRAW 620,324:DRAW 620,354:DRAW 560,354:DRAW 560,369:PL0T 610,3 
9:DRAW 620,374:DRAW 620,384:DRAW 540,384:DRAW 530,379 

32 PLOT 610,379:DRAW 620,384:PL0T 610,349:DRAW 620,354 

33 PLOT 60,329,1:DRAW 80,329:DRAW 90,331 

34 INK 1,6,24 :INK 2,2,6 :INK 3,24,2 

35 TAG 

36 FOR xX=-10 T0 215 STEP 5 

37 y7.=xX+24 
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38 IF X?.>213 THEN Q/>2 ELSE QX=1 

39 PLOT 7O0,45Q,QX:M0VE xX,SPRINT* PRESENTE PAR*? 

40 IF X%>213 THEN Q7.-2 ELSE QX=3 

41 PLOT 700,450,QX:MOVE 400-x7.,y%-23:PRINT'GUILLAüME LAMOTHE"; 

42 NEXT 

43 INK 1,2 : INK 2*26 : INPI 3,6 

44 BORDER 10 

100 ’ MUSIQUE 

101 DIM n(246,3) 

102 T=15 

103 FOR i=0 TO 245 STEP 2:READ n(i,2),n(i+l,2):NEXT 

104 FOR i=0 TO 245 STEP 2!READ n(i,0),n<i+l,0):NEXT 

105 FOR i=0 TO 245 STEP 2:READ n(i,1),n(i+1,1):NEXT 

106 FOR i=0 TO 245 STEP 2:S0UND l,n(i,-0),n(i+l,0)*t,7:S0UND 2,n<i,l),n<i+l,l)*t,7:S0UND 4,n<i,2),n(i+l,2)*t,7:NEXT 

107 DATA 470,3,239,3,568,1.5,284,4.5,716,3,358,3,638,1.5,319*4.5,478,2,239,1,190,2,239,1,568,2,284,1,239,2,284,1,716,2,358,1,284,2,3 
58,1,639,2,319,1,253,2,319,1,478,2,239,1,190,2,159,1,568,2,284,1,239,2,190,1,716,2 

108 DATA 358,1,284,2,239,1,638,2,319,1,253,2,213,1,478,1,239,1,190,1,159,1,190,1,239,1,568,1,284,1,239,1,190,1,239,1,284,1,716,1,358 
,1,284,1,239,1,284,1,358,1,638,1,319,1,253,1,213,1,253,1,319,1,478,1,190,1,159,1,119,1,159,1,190,1,56B,1,239,1,190,1,142,1 

109 DATA 190,1,239,1,716,1,284,1,239,1,179,1,239,1,284,1,638,1,253,1,213,1,159,1,213,1,253,1,478,3,190,1,0,1,190,1,56B,2,239,2,0,1,2 
39,1,716,3,284,1,0,1,284,1,638,2,253,3,0,1,478,3,239,1,0,1,239,1,568,2,284,2,0,1,284,1,716,3,358,1,0,1,358,1,638,2,319,2,0 

110 DATA 1,319,1,716,3,358,3,956,2,239,5 

111 DATA 0,3,0,3,0,1.5,0,4.5,0,3,0,3,0,1.5,0,4.5,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2 

, 0 , 1 , 0 , 2 , 0 , 1 , 0 , 2 , 0 , 1 , 0 , 2 , 0 , 1 , 0 , 2 , 0 , 1 , 0 , 2 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 0 , 1,0 

112 DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,3,1 
59,1,0,1,159,1,0,2,190,2,0,1,190,1,0,3,239,1,0,1,239,1,0,2,213,3,0,1,0,3,190,1,0,1,190,1,0 

113 DATA 2,239,2,0,1,239,1,0,3,284,1,0,1,284,1,0,2,253,2,0,1,253,1,0,3,284,3,0,2,379,5 

114 DATA 0,3,0,3,0,1.5,0,4.5,0,3,0,3,0,1.5,0,4.5,0,2*0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,2 

, 0,1,0,2,0,1,0,2,0,1,0,2,0,1,0,Z,0,1,0,2,0,1,0,1,0,1,0,1,0,1,0,1,0,1, Oi 1,0,1,0,1,0,1,0,1,0,1,0,1,0, t, 0,1,0,1,0,1,0,1,0 

115 DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,3,1 
19,1,0,1,119,1,0,2,142,2,0,1,142,1,0,3,179,1,0,1,179,1,0,2,159,3,0,1,0,3,159,1,0,1,159,1,0 

116 DATA 2,190,2,0,1,190,1,0,3,239,1,0,1,239,1,0,2,213,2,0,1,213,1,0,3,239,3,0,2,319,5 

117 TAGOFFîMODE 2 

118 INK 2,20:INK 3,6:INK 0,1:INK 1,24 

119 DIM puits!12,3):FOR a =0 Tû 11:F0R x=0 TO 2:READ puits(y,x):NEXT x,y 

120 DATA 100,50000,,200,70000,,300,75000,,400,80000,,500,90000,, 1000,120000,,2000,20000D,,5000,400000,,6000,500000,, 10000,700000,, 15 
000,1000000,,30000,2500000, 

121 DIM etp(10,3):F0R i=0 TO 9:READ etp(i,0),etp(i,l),etp(i,2):NEXT 

122 DATA 100,50000,,500,90000,,1000,150000,,5000,400000,,10000,1000000,,15000,1500000,,20000,2000000,,30000,3000000, ,40000,4000000,, 
60000,6000000, 

123 DIM bil*(6),bil(6,2):F0R i=0 TO 5:READ bil*(i),bil(i,D),bil(i,l):NEXT:DATA FINANCES,2,1,PRODUCTION,1,4,SALARIES,2,2,SOMMAIRE,2, 
5,STOCKAGE,2,3,RETOUR,3,6 

200 MODE 2:INPUT*voulez-vous lire le texte d’introduction *irep*:rep*=UPPER*(rept):IF LEFTOrep», 1)="N* THEN GOTO 207 

201 MODE 2îBORDER 1:L0CATE 37, ÜPRINT'DALLAS" 

202 PRINTîPRINT* Avez-vous jamais reve d’etre milliardaire a la tete d’une entreprise petroli-fere ? Si vous réussissez dans ce je 
u,vous pourrez alors etre sur de faire de meme en réalité.":PRINT:PRINT* Mais ATTENTION dans DALLAS un"; 

203 PRINT" centime de dette et c’est la faillite assurée !* 

204 LOCATE 1,10:PRINT"quelques renseignements indispensables :*:PRINT:PRINT" - le taux d’emprunt est de 20 7.*:PRINT" - il faut 1 ing 
enieur pour 30 ouvriers*:PRINT* - il faut 1 chef du personnel pour 30 employés":PRINT" - un ouvrier produit 10 barils par ' 

205 PRINT"jour":PRINT" - un employé garde 1000 barils en stock":PRINT" - la prime de licenciement est de 100000 t par salarie"îPRINT 
* - la vente d’entrepôts ou de puits de petrole rapporte 50 7. du prix d’origine* 

206 LOCATE 78,24:INPUT j 

207 PAPER #3,1:PEN #3,0 

208 coba=lNT(RND*50)+10 

300 ’ TEST AVANT JOUR SUIVANT 

301 IF imp2=l THEN cap=cap*0.5:imp2=0 

302 imp=irap+l :IF imp=60 THEN 11 /$=" impôts aujourd’hui':GOSUB 15000:i»p=l:imp2=l 

303 1F jep=l AND r3<>0 THEN r4=r4fl 

304 IF r4=2 THEN cap=cap-(r2*1.5):r2=0:r3=0:rl=0:jep=0:r4=0 

305 IF jep>l THEN cap=cap-r3:jep=jep-l 

306 IF jep=l AND r4=0 THEN m$=*remboursement aujourd'hui*:GÛSUE 15000 

307 joraf=joraf-l:IF joraf=0 THEN baraf=Q:reraf=0:jorafl=0:rafl=û:w$=*expiration du contrat aujourd’hui‘:GOSUB 15000 

308 IF joraf>0 THEN cap=cap+reraf 

309 jj=jj+l 

400 ’ TEST JOUR SUIVANT 

401 cap=cap-(ip+op+cpp+pp) 

402 bave=1000+INT(RND*6000) 

403 IF coba2=l THEN coba2=0:coba=10+INT(RND*3) 

404 cobal=RND:IF cobal<0.25 THEN coba=coba-INT(RND*10) 

405 IF cobal>0.26 THEN coba=coba+INT(RND*5) 

406 1F cobal>0.25 AND cobal<0.26 THEN coba=10+INT(RND*3) 

407 IF coba>60 THEN coba=60:coba2=l 

408 IF coba<10 THEN coba=10 

409 produc=ovr*10:IF produc>promax THEN produc=promax 

410 bapr=bapr+produc-baraf 

411 IF ing<ovr/30 THEN bapr=bapr-produc/2:u$=*ingénieurs pas assez nombreux*:GOSUB 15000:u$=*la production reelle chute de moitié*:6 
OSUB 15QD0:IF bapr<0 THEN bapr=0:cap=cap-(reraf*10):rafl=0:baraf=fl:reraf=0:joraf=0:v<= , rupture du contrat...perte :*: 

412 IF cp<per/30 AND stock>0 THEN stock=stock/2:u$- chefs personnels pas assez nombreux":60SUB 15000:ur»=*perte de la moitié des stoc 
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413 IF bapr<0 THEN bapr=0:cap=cap-(reraf*15):rafl=0:baraf=0:reraf=ü:joraf=0:i«t='plus de barils pour les raffineries':GOSUB 15000:»$= 
'rupture avec la raffinerie':G0SUB 1500Q:»$="grosses pertes d’argent îü'îGOSUB 15000 

414 capac=per»1000:IF capac>capmax THEN capac=capmax 

415 IF stock>capac THEN stock=capac 

416 IF bapr>600000 THEN bapr=600000:»$='bari15 produits trop nombreux ':GOSUB 15000:»$=’production stoppée ":G0SUB 15000 

417 d=INT(RND*1000F:IF d=50 THEN u$='incendie des vos entrepôts':G0SUB 15000:»$='perte de tous vos stocks*:G0SUB 15000:»$='les repar 
ations vous cher':G0SUB 1500Q:cap=cap-1000000:stock=0 

418 d=INT(RND*1000):IF d=50 THEN w$='mort d’un ouvrier ! !*’.GOSUB T500Q:ui$=’les dedommagements coûtent cher':G0SUB 15000:ovr=ovr-l:op 
=op-40:cap=cap-100000 

419 IF CAP<0 THEN GOTO 17000 

500 ’ PRESENTATION 

501 CLS 

502 BORDER 1:INK 1,24:INK 0,1 

503 MODE 2 

504 PRINT' 1 - bilan' 

505 PRINT 

506 IF r2=0 THEN PRINT' 2 - emprunt* 

507 IF jep=l THEN PRINT' 3 - remboursement' 

508 IF imp2=l THEN PRINT* 4 - impôts* 

509 PRINT' 5 - engagement' 

510 IF ing=0 AND ovr=0 AND per=0 AND cp=0 THEN GOTO 511 ELSE PRINT' 6 - licenciements* 

511 PRINT 

512 c=0:F0R i=0 TO ll:c=c+puits(i,2):NEXT:lF c<>12 THEN PRINT* 7 - achat de puits de petrole’ 

513 c=0:F0R i=0 TO 11:c=c+puits(i,2):NEXT:IF c<>0 THEN PRINT' 8 - vente de puits de petrole' 

514 IF bapr <>Q THEN PRINT' 9 - vente de barils produits' 

515 IF raflOl AND produc>0 THEN-PRINT MO - contrat avec une raffinerie* 

516 PRINT 

517 c=0:F0R i=0 TO 9:c=c+etp(i,2):NEXT:IF cOlO THEN PRINT'11 - achat d’entrepôts' 

518 c=0:F0R i=0 TO 9:c=c+etp( i,2) :NEXT:IF cOO THEN PRINT'12 - vente d’entrepôts' 

519 IF stock<capac THEN PRINT'13 - achat de barils pour stockage' 

520 IF stock >0 Tf€N PRINT'14 - vente de barils stockes* 

521 WINDOW #1,55t 79,2» 7: PAPER #1,1 :CLS#1:PEN #1,0 

522 PRINTtl:PRINT#!,' cours du baril :';cobai'$':PRINT#l:PRINT#l,' nombre de barils :“ibavei' en vente' 

523 WINDOW #2,15,26,22,24 : PAPER #2,1:CLS#2:PEN #2,0:PRINT#2:PRINT#2,' jour î'ïjj 

524 LOCATE 62,25:INPUT 'votre choix Mrep 

525 ON rep GOTO 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000 

526 GOTO 300 

1000 ’ BILAN 

1001 INK 2,20:INK 3,2:«=-l:M0DE l:F0R i=7 TO 17 STEP 4:»=»+2:WINDOW «u,1,12,i,i+2:PAPER #»,3:CLS#»:PEN #w,l:WIND0W #«+1,29,40,i,i+2: 
PAPER #w+l,3:CLS#u+l:PEN tw+1,l'.NEXT 

1002 FOR i=l TO 6:PRINT #i:b*=STRING*(bi1(i-1,0),32):PRINT #i,b$ibil$(i-l):NEXT 

1003 m=- 1:F0R i=7 TO 17 STEP 4:»=»+2:WINDOW #u,14,16,i,i+2:PAPER #w,2:PEN #»,0:CLS#»:WIND0W #«+1,25,27,i,i+2:PAPER #«+l,2:PEN #w+l,0 
:CLS#«+l:NEXT 

1004 FOR i=l TO 6:PRINT#i:PRINT#i," ";bi1{i-1,1):NEXT 

1005 PAPER #3,1:PEN #3,0 

1006 A$=INKEY$:IF A$=" OR VAL(A$)>6 OR VAL(A$)<1 THEN GOTO 1006 

1007 C=VAL(A$):0N C GOTO 1009,1027,1033,1040,1000,1008 

1008 PAPER #3,1:PEN #3,0:GOTÛ 500 

1009 INK 3,6:M0DE 2fWINDOW #3,70,79,1,3:CLS #3:PRINT #3:PRINT#3,* FINANCES' 

1010 PRINT'capitaÜ'îcapi'l';:PRINT TAB(50)'jour :';jj 

1011 PRINT 

1012 IF coem=0 THEN GOTO 1016 

1013 PRINT 'emprunt :';coemi'$' 

1014 PRINT 'remboursement total :'irl;'$':PRINT'remboursement journalier :'ir3;‘$':PRINT'remboursement du dernier jour :';r2î'$" 

1015 PRINT'remboursement final au jour :';jepl 

1016 PRINT 

1017 h=60-imp:PRINT'impots dans*îhi"jours* 

1018 h=INT(cap+0.35) : PRINT" ordre de grandeur !357.) :';h;'$* 

1019 PRINT 

1020 IF reraf=0 THEN GOTO 1023 

1021 PRINT'recette quotidienne du contrat :','reraf;'$' 

1022 PRINT'expiration du contrat au jour :';joraf1 

1023 h=0:PRINT:F0R i=0 TO 11:h=h+(puits(1)/2*puits(i»2)>:NEXT:PRINT'capital potentiel (puits) :'ihi'$':h=fl:FOR i=0 TO 9:h=h+(etp(i 
,1)/2*etp(i,2)):NEXT:PRINT'capital potentiel (entrepôts) :'jhi'$' 

1024 LOCATE 50,7:PRINT'SALAIRES (/jour) :':L0CATE 50,B:PRINT'ingénieurs :'iipi'$':LOCATE 50,9:PRINT'ouvriers :';ap}' 

$':L0CATE 50,10:PRINT"chef du personnel :';cppï'*':L 0CATE 50,ll:PRINT'employes :'îPPi“#' 

1025 :h=ip+op+pp+cpp:LOCATE 50,13:PRINT'SALAIRES TOTAUX :';h;'$* 

1026 GOTO 1006 

1027 MODE 2:WINDOW #3,70,79,1,3:CLS#3: PRINT#3:PRINT#3,' SALARIES' 

1028 PRINT'CATEGORIE NOMBRE SAL.UNITAIRE SAL.TOTAL":PRINT:PRINT'ingenieurs MUSING'####';ING;:PRINT TAB(2T)'130 #M:PRINT 
T AB(38)USING'#######'îIP»:PRINT* $':PRINT'ouvriers 'îlfSING'####'îOVR;:PRINT TAB(28)'40 #'i 

1029 PRINT TAB(38)USING'#l#l#i#'-,op;:PRINT' $':PRINT*chefs pers. ' ;USING'####Mcp;:PRINT TAB(28)'70 $'î*.PRINT TAB(38)USING‘#####i# 
*;cpp;:PRINT* $':PRINT'employés MUSING’####';PER;:PRINT TAB(28)'35 $M:PRINT TAB(38)USING'####*##MCPP;:PRINT' $' 

1030 PRINTiPRINT'TOTAUX : *j :H=ING+OVR+PER+CP: PRINT USING '#####Mhi:h=op+ip+cpp+pp:PRINT TAB(37)USING'#####*##' ihîïPRINT* $' 

1031 h=ovr*10:PRINT:PRINT:PRINT'production maximale des ouvriers î'îhî'barils/jour*:h=per*1000:PRINT"production reelle :'îProduci'ba 
rils/jour':PRINT:PRINT'capacite max. de stock, par les employés ^jhj’barilsMPRINT'capacite reelle î'JFapacl'barils' 
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1032 GOTO 1006 

1033 MODE 2:WINDOW #3,70,79,l,3:CL5#3:PRINT#3:PRINTi3, 1 STOCKAGE*:WIND0W#3,1,30,1,1:CLS#3:PRINT#3, ' NUMERO CAPACl(E*:L0CA 

TE 1,3:F0R 1=0 T0 9:IF ETP(I,2)=1 THEN PRINT * ‘;Iî:PRINT TAEISSIUSING”#####’ïETPd.D) 

1034 NEXT 

1035 WINDOW #3,1,30,14,14:CLS#3:PRINT#3,'TOTAUX ';:K=0:F0R 1=0 TO 9:H=H+ETP<1,2):NEXT:PRINT#3,H;:H=0:F0R 1=0 TO 9:H=H+ETP(1,0)*ETP( 
1,2)!NEXT:PRINT#3|TAÎ(21)USING , ###### , ;H 

1036 LOCATE l,J6:PRINT*capacite maximale de stockage des employés :';per*1000î'barils' 

1037 PRINT'capacite reelle :";capac;'barils* 

1038 PRINT:PRINT'barils en stock :';stock 

1039 GOTO 1006 

1040 MODE 2:WINDOW #3,68,79,1,3:CLB#3:PRINT#3:PRINT#3,* PRODUCTION' * 

1041 WINDOW #3,1,30,1,1:PAPER #3,l:CLS#3:PEN#3,0:PRINT#3,' NUMERO BARILS/JOUR':L0CATE 1,3:F0R 1=0 TO 11ÜF puits(i,2)=l 

THEN PRINT ' ' ; -‘PRINT USING'##';Ii 

1042 IF puits(i,2)=l THEN PRINT TAB(21)USING’i####'iPUITS(i,0) 

1043 NEXT 

1044 WIND0WI3,1,30,16,16ïPAPER #3,1 :CLS#3:PEN#3,□:PRINT#3,'TOTAUX ';:H=0:F0R 1=0 TO 11:H=H+PUITS(1,2):NEXT:PR1NT#3, H;:H=0:F0R 1=0 
TO 11:H=H+PUITS!1,0)*PUIT5(1,2):NEXT:PRINT#3, TAB(20)USING*######'ïH 

1045 LOCATE 1,17!PRINT:PRINT'production maximale des ouvriers :‘;ovr*10 

1046 PRINT'production reelle :"Jproduc:PRINT'prod ,, ction nette (-contrat) :'!produc-baraf 

1047 PRINT:PRINT'bar ils produits invendus :*ibapr 

1048 GOTO 1006 

2000 CLS’EMPRUNT 

2001 IF r2<>0 THEN w*='la banque ne fait qu’un seul pret':GOSUB 1500O:G0T0 500 

2002 MODE 2 

2003 WINDOW #3,71,79,1,3:CLS#3:PRINT#3:PRINT#3,' EMPRUNT* 

2004 PRINT'capital :*icapi"*':PRINT:PRINT'emprunt maximal de 100.000 ♦':INPUT'combien empruntez-vous *;coem:IF coem >100000 THEN w*= 
■espece de voleur '!!':GOSUB 150DO:GOTO 2000 

2005 IF COEMO THEN W*='ERREUR DE FRAPPE PEUT-ETRE ???':GOSUB 15000:G0T0 2000 

2006 1F INT(coem)<>coem THEN u*='DES COMPTES RONDS S.V.P. ! !':GOSUB !5000:G0T0 2000 

2007 capp=cap+coem:PRINT:PRINT'nouveau capital :";cappi'**:PRINT 

2008 PRINT:PRINT'remboursement sur 70 jours maximum' 

2009 INPUT'remboursement sur combien de jours 'ïjep 

2010 IF jep>70 THEN w*="avez-vous daigne lire ???":G0SUB 15OO0:GOTO 2000 

2011 IF jepOINT! jep) THEN w*='c’est nouveau,ca vient de sortir ! * : GOSUB 15000:60TO 2000 

2012 rl=R0UND(caem*((1.16)' v (jep/3G))):r3=R0UND(rl/2/(jep-l)):r2=rl-(jep-l)*r3:PRINT"renboursement total :'irl;'$':PRINT'remboursemen 

t partiel journalier :';r3j***:PRINT'remboursement final au jour* j j j+jep; * : ' jr2; **' » 

2013 PRINTÜNPUT'conf irmez-vous cet emprunt "Jrep* 

2014 IF rep2$='non' THEN coem=0:rl=0:r2=û:r3=Q:r4=û:jep=0:jepl=0:G0T0 500 ELSE cap=capp:jepl=jep+jj:jep=jep+l:GOTO 300 

3000 CLS’REMBOURSEMENT 

3001 IF jepOl THEN uit=‘vous etes en avance ! * : GOSUB 1500Q:G0T0 500 

3002 MODE 2:WINDOW #3,65,79,1,3:CLS#3:PRINT#3:PRINT #3,' REMBOURSEMENT' 

3003 PRINT'somme a rembourser aujourd’hui :*ir2,"*' 

3004 PRINT'en cas d’impossibilité il faut impérativement rembourser demain" 

3005 INPUT 'pouvez-vous rembourser *;rep*:G0SUB 16000: cap=cap-r2:jepl=0:coem=ü:jep=Q:rl=0:r2=O:r3=Q:r4=0:G0T0 300 

4000 CLS’ IMPOTS 

4001 IF imp2<>l THEN w$='etes-vous trop riche ??':G0SUB 15000:G0T0 500 

4002 MODE 2:WINDOW #3,72,79,1,3:CLS#3:PRINT#3:PRINT#3," IMPOTS' 

4003 PRINT:PRINT’capital :';capi'*':PRINT:PRINT'impots a 35 X :';INT(cap*0.35)5*fiFOR i=l TO 4000:NEXT 

4004 cap=INT(cap*0.75): PRINT:PRINT'nouveau capital :*;cap;**’:F0R i=l TO 17:PRINT:NEXT:INPUT’tapez <ENTER>';u:imp2=0:SOTO 300 

5000 MODE 2 ’ ENGAGEMENTS 

5001 WINDOW #3,67,79,1,3:CLS #3:PR1NT #3:PRINT#3,' ENGAGEMENTS' 

5002 PRINT'1 - ingénieurs':PRINT'2 - ouvriers':PRINT'3 - chef du personnel':PRINT'4 - personnel* 

5003 PRINTÜNPUT'quelle categorie ’icÜF cOINT(c) THEN w*='ah! ah' très drôle !*:G0SUB 15000:G0T0 5000 

5004 IF c<0 OR c>4 THEN u*='bof...trouvez autre chose !*:G0SUB 15Q00:G0T0 5000 

5005 ON c GOTO 5006,5011,5016,5021 

5006 MODE 2:WINDOW #3,67,79,1,3:CLS #3:PRINT #3:PR1NT#3,' ENGAGEMENTS' 

5007 PRINT'RECRUTEMENT D’INGENIEURS':PRINT:INPUT*combien en embauchez-vous 'ic 

5008 IF cOINT(c) OR c<l .THEN w*='ma patience a des limites 1 • : GOSUB 15000:G0T0 5006 

5009 h=c*130:PRINT’salaire d'un ingenieor : 130* / jour':PRINT'depense supplémentaire par jour :';h 

5010 INPUT'confirmez-vous ces embauches 'îrep*:GOSUB 16000:ing=ing+c:ip=ip+h:h=0:c=0:GOTO 300 

5011 MODE 2:WINDOW #3,67,79,1,3:CLS #3:PRINT #3:PRINT#3,' ENGAGEMENTS' 

5012 PRINT'RECRUTEMENT D’ûUVIERS':PRINT:INPUT‘combien en embauchez-vous *ic 

5013 IF cOINT(c) OR c<l THEN w*='ma patience a des limites !':G0SUB 15000:G0T0 5006 

5014 h=c*40:PRINT'salaire d’un ouvrier : 40* / jour*:PRINT'dépense supplémentaire par jour :'!h 

5015 INPUT'confirmez-vous ces embauches 'irep*:GOSUB 16000:ovr=ovr+c:op=op+h:h=Q:c=0:G0T0 300 

5016 MODE 2:WINDOW #3,67,79,1,3:CLS I3:PRINT #3:PRINT#3,' ENGAGEMENTS' 

5017 PRINT'RECRUTEMENT DE CHEFS DU PERSONNEL*:PRINT:INPUT'combien en embauchez-vous *;c 

5018 IF cOINT(c) OR c<l THEN u*='ma patience a des limites • * : 60SUB 1500Q:G0T0 5006 

5019 h=c*70:PRINT'salaire d’un chef du personnel : 70* / jour*sPRINT*dépense supplémentaire par jour :*îh 

5020 INPUT'confirmez-vous ces embauches *irep*:60SUB 16000:cp=cp+c:cpp=cpp+h:h=O:c=fl:G0T0 300 

5021 MODE 2-.WIND0W #3,67,79,1,3:CLS #3:PRINT #3:PRINT#3,' ENGAGEMENTS' 

5022 PRINT'RECRUTEMENT D’EMPLOYES’:PRINT:INPUT'combien en embauchez-vous *5c 

5023 IF cOINT(c) OR c<l THEN u*='ma patience a des limites !*:G0SUB 15000:60T0 5021 

5024 h=c»35:PRINT‘salaire d’un chef du personnel : 35* / jour*: PRINT'dépense supplémentaire par jour :*îh 

5025 INPUT'confirmez-vous ces embauches *!rep*:G0SUB 16000:per=per+c:pp=pp+h:h=0:c=0:G0T0 300 

6000 ’ LICENCIEMENTS 

6001 IF ing=0 AND ovr=0 AND cp=0 AND per=0 THEN «*=' vous n’avez personne a licencier ! *:GOSUB 15000:G0T0 500 ELSE MODE 2:WIND0W 13 
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165j79,1,3:PAPER #3,1 :CLS #3:PEN #3,0:PRINT#3:PRINT #3,’ LICENCIEMENTS* 

6002 PRINT'1 - ingénieurs':PRINT’2 - ouvriers’■•PRÎNT‘3 - chef du personnel’:PRINT’4 - personnel' 

6003 PRINT:INPUT’quelle categorie ’icÜF cOÏNT(c) TÆN ut="ah' ah! très drôle "îGOSUB 15000:GOTG 6000 

6004 ON c GOTO 6005,6010,6015,6020 

6005 MODE 2:WIND0W #3,6,5,79,1,3:CLS I3:PRINTI3:PRINT #3,* LICENCIEMENTS* 

6006 IF ing=0 THEN ui$=’ vous n’avez pas d’ingénieurs ’:G0SUB 15OGO:60TO 500 

6007 INPl/T’combien d’ingénieurs voulez-vous licencier ’jcilF c>ing OR cOINT(c) OR c<0 THEN wt=’vous perdez votre temps betement’:G0 
SUE 15000:GOTO 6007 

6008 prl=c*24000:gar=c*13Q:PRINT’prime(s) de licenciement :*;prl;’l’:PRINT*Par contre vous gagnez par jour s’igarî*#’ 

6009 INPUT’confirmez-vous ces licenciements ’irepCGOSUB 16000:cap=cap-prl:ing=ing-c:ip=ip-gar:G0T0 300 

6010 MODE 2SWIND0W #3,65,79,1,3:CLS #3:PRINT#3:PRINT #3,’ LICENCIEMENTS* 

6011 IF ovr=0 THEN id$=* vous n’avez pas d’ouvriers ’:G0SUB 15000:G0T0 500 

6012 INPUT’combien d’ouvriers voulez-vous licencier ’;c:IF cOINT(c) OR c>ovr THEN w$=’ah! ah! très drôle !’:G0SUB 15OO0:GOTO 6010 

6013 prl=2160*c:gar=c»40:PRINT’prime(s) de licenciement :’iprli’$’:PRINT’Par contre vous gagnez par jour :’;gar;*$” 

6014 INPUT’confirmez-vous ces licenciements *irep$:G0SUB 16000:cap=cap-prl:ovr=ovr-c:op=op-gar:G0T0 300 

6015 MODE 2:WIND0W #3,65,79,1,3:CLS #3:PRINT#3:PRINT #3,’ LICENCIEMENTS’ 

6016 IF cp=0 THEN wî=’ vous n’avez pas de chefs du pers. ’:G0SUB 15000:G0T0 500 

6017 INPUT’corabien de chefs du personnel ’;cïIF cOINT(c) OR c>cp THEN w$=’ah! ah! très drôle !’:G0SUB 15QOO:GOTO 6015 

6018 prl=1512Q*c:gar=c*7G:PRINT’prime(s) de licenciement :’;prl;’$’:PRINT’Par contre vous gagnez par jour :’i.gari’*’ 

6019 INPUT’confirmez-vous ces licencieitients ’irep$:G0SUB 16000 • cap=cap-pr 1 cp=cp-c: cpp-cpp-gar : GOTO 300 

6020 MODE 2:WIND0W #3,65,79,1,3:CLS #3:PRINT#3:PRINT #3,’ LICENCIEMENTS’ 

6021 IF per=0 THEN ui*=’ vous n’avez pas d’employés ’:G0SUB 15OOO:60TO 500 

6022 INPUT’combien d'employes voulez-vous licencier ’îc.’IF cOINT(c) OR c>per THEN u$=’ah! ah! très drôle !’:G0SUB I5000:G0T0 6020 

6023 prl=7560*c:gar=c*35:PRINT’prime(s) de licenciement .‘’iprli’f^PRINT’Par contre vous gagnez par jour :*igar;’$* 

6024 INPUT’confirmez-vous ces licenciements ‘;repi:G0SUB 16000:cap=cap-prl’.per=per-c:pp=pp-gar:GOTO 300 

7000 ’ ACHAT DE PUITS 

7001 c=0:FOR i=0 T0 11 :c=c+puits(i,2):NEXT:IF c=ll THEN uit=’ vous avez tout acheté ! ’:G0SUB 15000:G0T0 500 

7002 MODE 2:WIND0W #3,53,79,1,3:CLS#3:PR1NT#3:PR1NT#3,’ ACHAT DE PUITS DE PETROLE ’ 

7003 PRINT:PRINT’NUMERO BARILS/JOUR PRÏX*:PRINT:F0R 1=0 TO 11:IF puits(i,2)=0 THEN PRINT-’ ’iUSING’t#’îIï 

7004 IF puits(i,2X>l THEN PRINT TAB ( 13), USING* #####’; PUITS ( 1,0 PRINT TAB< 25 ), USING’#######* ; PUITSt 1,1 ) î : PRINT’$" 

7005 NEXT 

7006 LOCATE 53,14:lNPUT*quel puits achetez-vous ’icÜF cOINT(c) OR c<0 OR c>ll THEN w$=‘faute de frappe peut-etre ??’:60SUB 15000:6 
OTO 7000 ELSE IF puits!c,2)=1 THEN wt=" il vous appartient déjà ! ’:60SUB 1500G:G0T0 7000 

7007 IF puits!c,l)>cap THEN w$=’vous n’avez pas assez d’argent’:G0SUB 15ÛOO:GOTO 502 

7008 PRINT:PRINT:PRINT*capital actuel :*icapi’t’:h=cap-puits(c,l):PRINT‘nouveau capital :’;hi”*’:PRINT:PRlNT’production maximale act 
uelle :’iproma>:;’barils/jour‘:h=promax+puit5(c.0):PRINT’nouvelle production maximale :’;hi’barils/jour’ 

7009 INPUT’confirmez-vous cet achat ‘;rep$:G0SUB 16000:cap=cap-puits(c,l):promax=prDfflax+puits(c,0):puits (c,2)=l:60T0 300 

8000 ’ VENTE DE PUITS DE PETROLE 

8001 FOR i=0 TO ll:c=c+puits(i,2):NEXT:IF c=0 THEN u$=’ vous ne possédez aucun puits !’:G0SUB 1500Q:G0T0 500 

8002 MODE 2:WIND0W #3,53,79,1,3:CLS#3:PRINT#3:PRINT#3,’ VENTE DE PUITS DE PETROLE ’ 

8003 PRINT:PRINT’NUMERO BARILS/JOUR PRIX’:F0R 1=0 TO 11:IF puits(i,2)=l THEN PRINT ’ ’iUSING’##’il; 

8004 IF puits(i,2)=l THEN PRINT TAB(13),USlNG , #####”,PUITS(i,0)i:PRINT TAB(25),USING’t##t##*’;PUITS(i,l);:PRINT’$’ 

8005 NEXT 

8006 LOCATE 53,12:PRINT’vente a moitié prix’-'LOCATE 53,13: INPUT’quel puits vendez-vous ’ ; c: IF puits! c, 2)=0 THEN w#=* il ne vous appa 
rtient pas ! ’:GÛSUB 15000*-G0T0 8000 

8007 PRINT:PRINT:PRINT’capital actuel :’icap;’t’:h=cap+puits(c,l)/2:PRINT’nouveau capital :';h;'*’:PRINT:PRINT’production maximale a 
ctuelle :"ipromaxi‘barils/jour':h=promax-puits(c,0):PRINT‘nouvelle production maximale :';h!’barils/jour" 

8008 INPUT’confirmez-vous cette vente ’;rep$:GOSUB 16000:cap=cap+puits(c,l)/2:promax=promax-puit5(c,0):puit5 (c,2)=0:G0T0 300 

9000 ’ VENTE DE EARILS PRODUITS 

9001 IF bapr=0 THEN n/t=‘vous n’avez pas de barils a vendre !’:G0SUB 150Q0:G0T0 500 

9002 MODE 2:WINDOW #3,54,79,1,3:CLS #3:PR1NT#3:PRINT#3,’ VENTE DE BARILS PRODUITS ’ 

9003 LOCATE 1,5:PRINT BAPRj’barils produits n’ont pas ete vendus’ 

9004 PRINT’le cours du baril est :’icobai'$“ 

9005 h=bapr*coba:PRINT’valeur de votre stock au cours actuel :';hi‘t’ 

9006 PRINT:INPUT’combien en vendez-vous ’ic 

9037 IF c>bapr OR cOlNT(c) OR c<0 THEN wî=’HHUUUUUMMMMMM.’:GÔSUB 1500Q:G0T0 9000 

9008 h=c*coha:PRINT"recette de la vente :*;h;'î’:h=h+cap:PRINT’nouveau capital : * îhj **' 

9009 INPUT’confirmez-vous cette vente ’irep$:GOSUB 160O0:cap=h:bapr=bapr-c:G0T0 300 

10000 'CONTRAT 

10001 IF raf1=1 THEN u$='vous avez déjà un contrat en cours ’:G0SUB 15000:GOTO 500 

10002 MODE 2 :WIND0W #3,50,79,1,3:CLS #3:PRINT #3:PRINT #3,’ CONTRAT AVEC UNE RAFFINERIE ’ 

10003 LOCATE 1,5:INPUT’combien de barils fournirez-vous a la raffinerie ’îc 

10004 IF cOINT(c) OR c<l OR c>produc THEN u*=’ IMPOSSIBLE *:G0SUB 15000:GOTO 10000 

10005 PRINT 'cours du baril :’;cobai’*’ 

10006 h=c*coba:PRINT‘recette journalière de :”,h;’l’:h=produc-c:PRINT’production reelle journalière :*ihi*barils’ 

10007 INPUT’contrat sur combien de jours (20 maxi.) ’;cl:lF d>20 OR INT(cl)Ocl OR cl<l THEN u*=’ IMPOSSIBLE ’:G0SUB 1SOOO:GOTO 100 
00 

10008 h=cl*c*coba:PRINT’recette totale :’;h,”*‘ 

10009 INPUT'confirmez-vous ce contrat ’;rep$:G0SUB 16000:baraf=c:rafl=l:reraf=baraf*coba:joraf=d:jorafl=jj+d 

10010 GOTO 300 

11000 'ACHAT D’ENTREPOTS 

11001 c=0:FOR i=0 TO 9:c=c+etp(i,2):NEXT:IF c=10 THEN id*=’vous les possédez tous’:G0SUB 15000:60TO 500 

11002 MODE 2:UIND0W #3,60,79,1,3:CLS*3:PRINT#3: PRINT#3,’ ACHAT D’ENTREPOTS’ 

11003 PRINT’NUMERO CAPACITE PRIX’:PRINT:F0R 1=0 TO 9:IF ETP(I,2)=0 THEN PRINT ' ’;I;:PRINT TAB(13),USING’##*##’;ETP(I,0 

); :PRINT TAB(20),USING’#######’jetp(i,l) 

11004 NEXT 

11005 LOCATE 50,12:lNPUT’quel entrepôt achetez-vous ’icÜF c<>INT(c) OR c>9 OR c<0 THEN «#=’faute de frappe peut-etre ??’:G0SUB 1500 
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0:G0T0 11000 ELSE IF etp(c,2)=l THEN D’vous l’avez déjà ! * :GOSUB 15000:G0T0 11000 

11006 IF cap<etp(ci1) THEN D’vous n’avez pas assez d’argent*:G05UB 150Q0:G0T0 500 

11007 PRINT "capital actuel :”,cap; l '$’:h=cap-etp(c,l):PRINT"nouveau capital :’;h;"$“:h=capmax+etp(c,Q):PRINT’capacite tnaximale actue 
lie :’;capmax;’baril5’:PRINT’nouvelle capacité maximale : * î h ; * bar ils* 

11008 INPUT’confirmez-vous cet achat ’;rept:60SUB 1600ü:capmax=capmax+etp(c,û):etp(c,2)=l:cap=cap-etp(c,l):GÛTO 300 

12000 ' VENTE D’ENTREPOTS 

12001 c=0:F0R i=0 T0 9:c=c+etp(i,2):NEXT:IF c=0 THEN D’vous n’en avez aucun *:G0SUB 150Û0:G0T0 500 

12002 «ODE 2:WINDOH #3,60,79,1,3:CLSI3:PRINT#3:PRINTI3,■ VENTE D’ENTREPOTS” 

12003 PRINT’NUMERO CAPACITE PRIX*:PRINT:F0R 1=0 TO 9.*IF ETP(I,2)=1 THEN PRINT * ’iI;:PRINT TAB( 13),USING"##*##*;ETP(I,0 

);:PRINT TAB(20),USING’#######”;etp(i,l) 

12004 NEXT 

12105 LOCATE 50,12:lNPUT*quel entrepôt vendez-vous ’îcÜF etp(c,2)=0 THEN D’vous ne le possédez pas !’:G0SUB 15000:G0T0 12000 

12006 PRINT "capital actuel :’)cap;*$’:h=cap+etp(c,l)/2:PRINT‘nouveau capital :'ihi’$":h=capmax-etp(c,0):PRINT’capacite maximale act 
uelle :';capmax;’barils’:PRINT’nouvelle capacité maximale :";h;"barils* 

12007 INPUT"confirmez-vous cette vente "îrepJîGOSUB 16QQ0:capmax=capmax-etp(c,O):etp(c,2)=O:cap=cap+etp(c,l)/2:GOTO 300 

13000 ’ ACHAT DE BARILS POUR STOCKAGE 

13001 IF capac-stock =0 THEN D 1 les entrepôts sont pleins’:G0SUB 15000:GOTO 500 

13002 MODE 2 :WIND0W #3,49,79,1,3:CLS #3:PRINT #3:PRINT#3, * ACHAT DE BARILS POUR STOCKAGE * 

13003 PRINT’cours du barils :’icoba;’$” 

13004 PRINT’nombre de barils en vente :"ibave 

13005 PRINT"capacité maximale î’icapmaxi'barils* 

13006 PRINT’capacité limite actuelle :’;capac;’barils' 

13007 h=capac-stock:h=MIN(h,bave):PRINT’achat maximal de :’;h;"barils" 

13008 INPUT’cambien de barils voulez-vous acheter ’;c:h=capac-stock:IF cOINTIcî OR c<l THEN D’c’est impossible !!’:G0SUB 1500Q:G0 
TO 13000 

13009 IF c>h AND capac=capmax THEN D* entrepôts trop petits’:GOSUB 15000:G0T0 13000 

13010 IF c>h THEN u$=’personnel -pas assez nombreux’:GOSUB 15000:GOTO 13000 

13011 IF c>bave THEN w$=*il n’y en a pas autant a vendre ":G0SUB 150Q0:60T0 13000 

13012 h=c*coba:PRINT’dépense de 

13013 h=cap-h:PRINT'nouveau capital :’;hj*$’ 

13014 INPUT'confirmez-vous cet achat ’;rep$:G0SUB 16000:h=c*coba:cap=cap-h:stock=stock+c:G0T0 300 

13015 j=0 

13016 RETURN 

14000 'VENTE DE BARILS 

14001 IF stock<l THEN D’vous n'en avez pas a vendre ! * :GOSUB 15000:G0T0 500 
14002-MODE 2: HINDOU #3,55,79,1,3-* CLS#3 : PR I NT#3 : PR I NT#3, ’ VENTE DE BARILS STOCKES * 

14003 PRINT'stock de'istocki’barils’ 

14004 PRINT’cours du barils :’icoba;’l’ 

14005 INPUT’combien en vendez-vous ’icÜF c>stock OR c=0 OR cOINT(c) THEN D’IMPOSSIBLE’:GOSUB 15Cf00:G0T0 14000 

14006 h=c*CDba:PRINT’recette de la vente :*ihî’#' 

14007 h=cap+h:PRINT*nouveau capital :’îh;’$' 

14008 INPUT'confirmez-vous cette vente ’;rep*:50SUB 16000:cap=h:stock=stock-c:G0T0 300 

15001 MODE 1 : INK 2,0:INK 3,6:L0NG=LEN!W*):L0N51=1NT((40-LONG ) 12) :HINDOU #7, LONG1-1,LONG+LONG1,10,12 : PAPER #7,2:CLS#7 

15001 PRINT #7 

15002 PEN #7,3:PRINT#7,’ *;W$:S0UND 1,100,-1,15,l.UFOB 1= 1 TO 2000:NEXT:RETURN 
16000 rep*=UPPER$(rep$):IF LER»(rept,l )=’0" THEN RETURN ELSE GOTO 500 

17000 MODE 0 

17001 FOR i=0 TO 7:INK i,4:NEXT 

17002 WINDOH #1,1,40,1,11:WINDOH #2,1,40,12,25:PAPER #1,0:PAPER #2,1:CLS #1:CLS #2 

17003 PEN #1,B:PEN #2,9:SPEED INK 30,30:INK B,15,4:INK 9,4,15:L0CATE #1,2,2:PRINT#1,‘FAILLITE’:L0CATE #2,12,12:PRINT#2,"FAILLITE” 

17004 FOR i=0 TO 40 STEP 2:PL0T 200,60+1,2:DRAW 310,6O+i:DRAW 470,200+i:NEXT i:F0R i=0 TO 110 STEP 2:PL0T 200+i, 100:DRAW 360+i,24Q:N 
EXT i 

17005 FOR 1=0 TO 20 STEP 2:PLÙT 360+2*i,240+i:DRAW 470-2*i,240+i:NEXT i 

17006 FOR i=0 TO 10 STEP 2:PL0T 400,260+i:DRAW 420,260+i:PLOT 390,270+i:DRAW 420,27D+i:DRAW 430,2B0+i:PLOT 390+i,280+i:DRAW 42O+i,20 
0+i:PL0T 400+1,290+1:DRAW 420,29Q+i:NEXT i 

17007 PLOT 200,100,3 : DRAW 200,60:DRAW 310,60:DRAW 470,200:DRAW 470,240:DRAW 310,100:DRAW 270,120--DRAW 430,260:DRAW 420,26Q:PL0T 400, 
260:DRAW 240,120:DRAW 200,100:DRAW 360,240:DRAW 400,260:PL0T 200,100:DRAW 310,100:DRAW 310,6Q:PL0T 470,240:DRAW 430,260 

17008 PLOT 420,260:DRAW 410,250:DRAW 400,250:DRAW 400,270:DRAW 390,270:DRAW 390,280:DRAW 410,300:DRÀW 420,300:DRAH 420,290:DRAW 430, 
290:DRAW 430,230:DRAW 420,270:DRAW 420,260 

17009 PLOT 410,250:DRAW 410,270:DRAW 390,270:PLOT 410,270:DRAW 420,270:DRAW 4-20,280:DRAW 410,280:DRAW 410,290:DRAW 400,290:DRAW 400, 
280:DRAW 390,2SQ:PL0T 420,3D0:DRAW 410,290:PL0T 430,290:DRAW 420,280:PL0T 240,120:DRAW 270,120 

17010 PLOT 260,399,7:DRAW 230,360:DRAW 300,320:DRAW 280,300:DRAW 290,280:DRAW 285,275:DRAW 310,250 

17011 PLOT 240,350,4:DRAW 190,300:DRAW 220,280:DRAW 1BQ,250:PL0T 260,340,6:DRAW 340,370:DRAW 310,340:DRAW 430,370:PL0T 600,399,5:DRA 
W 540,330:DRAW 600,360:DRAW 510,260 

17012 DIM tT(23,2),tu(23,2):F0R 1=0 TO 22:READ tT<I,0),tT<I,1>:NEXT:F0R 1=0 TO 22:READ Tu(I,0),Tu(I,1):NEXT 

17013 FOR 1=0 TO 22:S0UND l,tT!I,0),Tu(I,l)*30,7:S0UND 2,Tu(I,0),Tu(I,1)*30,7:NEXT 

17014 DATA 239,2,0,1,239,2,0,1,239,2,0,1,201,1,213,1,201,1,213,1,179,1,213,1,201,1,239,2,0,1,119,3,159,2,150,1,159,2,179,1,213,2,201 
,1,239,4 

17015 DATA 478,2,0,1,478,2,0,1,478,2,0,1,402,1,426,1,402,1,426,1,358,1,426,1.402,1,478,2,0,1,239,3,319,2,301,1,319,2,358,1,426,2,402 
,1,478,4 

17016 INK 0,0:INK 1,9:INK 2,3:INK 3,13ÜNK 4,0:INK 5,0:INK 6,0:INK 7,0:INK B.OÜNK 9,9 

17017 FOR i=l TO 500:NEXT 

17018 SPEED INK 2,2 

17019 FOR i=4 TO 7:INK i,26:F0R k=l TO 50:NEXT k: INK i,0:F0R k=l TO 500:NEXT k:NEXT i 

17020 INK 4,13,0:INK 5,13,0:INK 6,13,0:INK 7,13,0:INK 0,0,13:INK 8,0,13 

17021 FOR i=l TO 500:NEXT:INK 0,0:INK 4,0:INK 5,0:INK 6,0:INK 7,0:INK 8,0 

17022 fOR g=0 TO 5000:NEXT:INK 0,1:B0RDER 1:INK 1,24:M0DE 2 


I 
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AMS 



AMSTRAD EXPO 

du 24 au 27.01.86 • Porte de 
Versailles • Hôtel Holiday Inn 


20, me de Montreuil 94300 VINCENNES - Tél. : (1) 43.28.22.0 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h. LE SAMEDI de 10 h 30 à 19 h 

REVENDEUR OFFICIEL AMSTRAD FRANCE 

, LOGICIELS CASSETTE 

^0 F □ raid sur Ténéré.155 F 

en Dsanpablo.119 F 

,/a1 ' □ syclone 2.130 F 

□ scriptnr.165 F 

1 ; |e ^ □ zedrs II.130 F 

ion r Oprinterpac 1.125 F 

□ système X.170 F 

□ 1815.160F 

□ force 4.120 F 

{““J □ amstral.120 F 

.qo r □ biorythmes.120 F 

150 F □graphologie.150 F 

250 F □ métro 2018 . 198 F 

130 p □ 3 0 voice chess .160 F 

140 F □ gestion domestique 

145 F (logys). 180 F 

245 F D3Dmegacode. 180 F 

□ ghosbuster . 130 F 

120 F Dgutter . 120 F 

îonc Dhardhatmack. 175 F 

tonc □histoquizz. 120 F 

îïï Dhyperspace. 120 F 

p □ imperialis . 179F 

□ initiation basic 

vol. 1 . 245 F 

In p □jumpjet. 130 F 

J™ J □ knight lore. 130 F 

JÎUJ □ la palette magique ... 119 F 

J "[J £ □ la ville infernale. 120 F 

□ le bagne de nepharia.. 140 F 

^ □ le millionnaire. 140 F 

, Kn e Die mystère 

^ du kikekankio. 160 F 

__ n _ □ le survivant. 120 F 

c □ le trésor de l’Amazone 99 F 

20 F DMA base. 165 F 

1 20 F □ macadam bumper .... 160 F 

□ manager. 160 F 

Jonc □ meurtre à 

2 au r grande vitesse. 180 F 

180 F □ micro gestion. 150 t 

180 F □ m j cr0 sapiens. 140 F 

180 F □ mission delta . 120 F 

180 F □ mission detector. 120 F 

120 F Omonopolic. 130 F 

110 p Dmontsegur. 140 F 

180 F □multicopy. 120 F 

□ night booster. 120 F 

160 F □ Othello . 120 F 


□ mandragore. 240 F 

□ poseidon .179 F 

□ tyrann.185 F 

□ montsegur.140 F 

□ DAM.S. (désas. ass. monit.) 

(français).295F 

□ bad max (en relief !).... 190 F 

□ rallyll .180 F 

□ 30 fight .160 F 

□ space shuttle. 290 F 

□ infernal runner.160 F 

□ le mystère de kikekankoi 180 F 

□ empire. 230 F 

□ alien (en relief). 230 F 

□ diamant île maudite .... 200 F 

□ planète base.150 F 

□ lorigraph . 230 F 

□ tennis 3 D.150 F 

□ foot.180 F 

□ 1000 bornes.145 F 

□ master of lamps.120 F 

□ 3 0 grand prix.120 F 

□ H-basic. 490 F 

□ way of exploding fist... 115 F 

□ torann + dianns 

+ 3 0 sub. 

□ rocky horror show .. 

□ the hobbit. 

□ the quill. 

□ turtle graphie vision 

□ master file (français) 

□ histo-quizz. 

□ gems of stradus + 

star avenger. 

□ dumdarach . 

□ sorcery. 

□ strip poker. 

□ world cup football. 120 F 

□ stress. 120 F 

□ worldwar3. 95 F 

□ salut l’artiste (DAO.) . 185 F 

□ ghostbuster. 140 F 

□ amsword (français) . 245 F 

□ easy file (français).... 175F 

□ easy cale (français) ... 175F 

□ easy bank (français) .. 175 F 

□ colorie. 95 F 

□ amscalc. 245 F 


□ imprimante DMP 2000 .. 

□ interface M.l.0.1. 

□ interface RS 232 (Amstrad) 

□ stylo optique. 


CPC 6128 

□ avec moniteur couleur. 

□ avec moniteur monochrome 


CPC 664 

□ avec moniteur couleur. 

□ avec moniteur monochrome 
CPC 464 

□ avec moniteur couleur. 

□ avec moniteur monochrome 


□ Joystick AMSTRAD, 


295 F 

125F ■ 

180 F Joystick TIRVITT 

220 F Le "MUST en matière de joystick! 8 directions, 
180 F contact par micro-contact, robuste, élégant, précis, 
290 F il ne vous décevra pas, garanti 1 an, compatible 
120 F standard ATARI et MSX 

□ Joystick TIRVITT. 140 F 


□ 1 er lecteur de disquettes.... 

□ 2 ème lecteur de disquettes.. 

□ cordon 2 ème lecteur disquette 


Synthétiseur vocal AMSTRAD □ easy cale. 

Enfin votre AMSTRAD peut s’exprimer! Anglais d’ori- □ eas V f ,le . 

gine il gardera son accent mais, grâce à un programme pj eas Ÿ 9 ra P". 

basic, vous dira “bonjour'', “gagné” ou vous apprendra r-, PS rep0 . rt J . 

l’anglais ou l'allemand. BgfiÆas,,. 

□ synthétiseur vocal (DK Tronics). 395F □ Q 0 s ,i on d 0cum8 nta 

□ synthétiseur vocal (Amstrad). 390 F (loqys) 

□ synthétiseur vocal Français. 480 F 

□ cobra pinball. 

DIVERS Uwarrior. 

□ ruban imprimante DMP1 (par 2) . 198 F □ raid sur Ténéré .. 

□ adaptateur péritel pour 464.390 F □ mandragore. 

□ adaptateur péritel pour 664-6128.490 F □ ballade au pays de 

□ cordon pour 2 e lecteur disquette.120 F (cours d'anglais). 

- modem DIGITELEC : Dthey sold a million 

grâce à ce modem vous pourrez non seulement faire de décathlon +- beach 

la transmission de données mais également transformer + jet set willy + s 

notre AMSTRAD en minitel. wulf. 

□ modem (avec logiciel télétel) .1490 F □ sorcery "+" . ... 

□ boîte rangement disquettes (40) . 255 F □ transmat. 

□ extenision 64 K (avec câble). 950 F □ tomcat. 

□ souris. 690 F □ syclone 2. 

□ interface RS 232 . 590 F □ scriptor. 

□ zedis II. 

□ primer pac . 

□ file (français) .... 

□ bank (français) .. 

□ amsgolf. 

□ code name mat. . 

□ master chess. 

□ spannerman . 

□ graph (français) .. 

□ snooker. 

„ . □ DA.M.S. français 

Magnétophone 

Ce magnétophone spécialement conçu pour les □ | e langage machin 

micro-ordinateurs vous évitera bien des soucis. □ autoformation à l’é 

Entrée DIN ou Jack. Nivecu réglable. Témoin 1 cassette + i | jv 

sonore et lumineux. Alimentation intégrée r-, nrQnK;ownp 

□ magnétophone . 390 F □ nraphames et son: 

n cn r □ les jeux d aventure 

□ câbfe magnéto . 50 F Q peeks et cokes du 

Rallonge alimentation + vidéo □ DDI 1 FIRM WARI 

□ ne soyez plus collé à l'écran, rallonge.464 130 F □ concise basic spéc 

□ 664 180 F □ super-jeux Amsti 

□ housse lecteur disquette. 85 F □ AMSTRAD ouvre 

□ housse pour moniteur + clavier.175 F P programmes basii 

(préciser couleur ou monoc.) □ basic au bout dos 

□ trucs et astuces p 

□ boitier rangement disquettes. 255 F q | e tour de l'amstra 

Possibilités de crédit partiel ou total 

COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part - Fartes le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F pour achat supérieur à 1000 F). 


Mannesmann MT 80S 

L’imprimante “top niveau" en informatique fa¬ 
miliale 100 caractères par seconde. Papier 
normal ou informatique. Entraînement par 
friction ou traction. Si vous recherchez une 
qualité "courrier", la MT 80S vous donnera 
plus que des satisfactions tant pour le texte 
que pour le graphisme 

□ Mannesmann MT 80S. 3350 F 


Cassettes vierges C20 —"—^ 

□ les 5... 

□ les 10 . 

Rallonge alimentation + vidéo 

□ ne soyez plus collé à l'écran, rallonge. 


290 F □ Adaptateur péritel. 390 F 

345 F 

j 05 p □ disquette vierge 3 pouces.. 35 F 

420 F 

tV/N «A 

580 F LS\S \ 

170 F ) 

750 F J 

475 F 

295 F 8 bits interface printor 
_ n _ □ grâce à cet interface vous pouvez enfin faire du 

249 F 0 ra P hisme sur toute imprimante. 345 F 

1 ?n F cable im P riman,B AMSTRAD 

iqq F Vous P 0rmet de connecter votre AMSTRAD à nïm- 

iIq c porte quel * e imprim 0016 au standard “centronic” 

ï □ câble imprimante.150 F 

. 149 F 

.. 98 F Carte E/S 

Vous permet de commander moteur, relais, lampe, 
sonnerie, projecteur 

18F □ carte 8 E/S. 395 F 

12 F Carte E/A AMSTRAD 

18 F Pour transformer votre AMSTRAO en centrale de me- 
18 F sures. Possibilité de brancher plusieurs cartes 

□ carte 8 E/A.. 395 F 


Cette carte, livrée en boîtier plastique et reliée à 
l'AMSTRAD par un câble court CL 1 ou CL 2, adjoint 
64 K RAM supplémentaires à votre AMSTRAD sous 
forme de disquette virtuelle. Des routines d’exploitation 
sont fournies avec le produit. Nous tenons à votre 
disposition le logiciel JL BANK, équivalent direct du 
BANK MAN du 6128. 

□ extension RAM 64 K (avec câble). 950 F 


REVUES 


'JOM-ORDINATEUR □ CPC 6128 couleur □ CPC 6128 monoch □ CPC464 couleur □ CPC464 monochrome □ CPC664 couleur □ CPC664 monochrome 

ADRESSE___ TÉI_CODE POSTAL 

Mode de paiement : □ chèque / □ mandat / □ contre-remboursement (prévoir 20 F de frais) - envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 


VILLE 


réseau 


Tous nos prix sont indicatifs 


















































































































































































































































zÆita*ï*ts 


S &ÿi;sé:-i'K-:H^irê 


’:v> T >vif. : 


F 


c> r, .2x* •' *' v - 


|*i»inU\V 


DÎTES MQI MONSIEUR 
POURQUOI AVEZ-VOUS 
CREVE TOUTES LES 
JOLIES BULLES DE „ 


MON PETIT HUBERT? 

HUM POOR.poo\7. 


gmniBüSjTiË^ 


1 REM *m«m********************m* 

3 REM * BDLLBUSTERS VI.1 

4 REM * * 

5 REM * * 

6 REM * Réalisé par Kiesele William * 

7 REM »-» 


Bullbusters est un chasseur de 
bulles, mais pas n’importe les¬ 
quelles... Enfermé dans un laby¬ 
rinthe inextricable, il doit ramas¬ 
ser le plus possible de ces bulles 
remplies d’un acide mortel. 
Vous avez, au départ du jeu, 
cinq vies ; lesquelles ne seront 
pas de trop pour venir à bout de 
votre mission car dans ce laby¬ 
rinthe veillent les terribles 
Guardbulls (en anglais dans le 
texte) qui ne sont que les vigi¬ 
lants gardiens du lieu. 


Soyez prudents car ils sont loin 
de vous vouloir du bien... 
Lorsqu’un monstre vous rat¬ 
trape, vous perdez une vie. Cha¬ 
que bulle d’acide ramassée vous 
rapporte dix points et vous pou¬ 
vez passer (lorsque vous le con¬ 
seille la prudence) au tableau sui¬ 
vant en empruntant les sorties 
matérialisées par une sorte de 
“V” renversé. Joystick et nerfs 
à toutes épreuves sont indispen ¬ 
sable pour ce jeu d’arcade. 

William Kiéselé 


7 REM *-* lants gardiens du heu. William Atéseie 

8 REM * * 

9 REM ♦♦*#♦***•»**»****#♦****«*******«* -"- 

10 vie=5 

20 MODE 1:SYMBOL 240,16,56,56,56,124,124,198,130:GÛSUE 2070:INK 1,22:G0SUB 2050:M0DE l-’PEN 4:BORDER 14 
30 CALL &ED19 

40 WIND0W #0,1,40,B,25 fff g 

süïïsr 3 Ru busters 

70 ÜR1GIN 5,282:DRAW 630,0,3:DRAWR 0,-276,3:DRAWR -630,0,3:DRAWR 0,276,3 f f W# ^ IrW I 

80 0RIGIN 5,394: DRAW 630,0,1 :DRAWR 0,-102,1 :DRAWR -630,0", 1 : DRAWR 0,102,1 
90 WIND0W #1,2,39,9,18:PAPER 4:CLS #1:PEN 1 
100 TR»="BULLBUSTER■ 

110 TAG 

120 0R1GIN 180,40 
130 FOR H=1 T0 LEN(TR$) 

140 MOVE 10+(H«18),14+(H*4) 

150 PRINT #0,MIDt(TR#,H, 1 ) :NEXT:TAG0F 

160 0RIGIN 628,100:DRAW -140,0,4:DRAWR 0,-40,4:DRAWR 80,0,4:DRAWR 0,-40,4:DRAWR -500,0,4:0RIGIN 624,98:DRAW -140,0,4:DRAWR 0,-40,4:D 
RAWR 80,0,4:DRAWR 0,-40,4:DRAWR -51X1,0,4 

170 0RIGIN 622,96:DRAW -140,0,4:DRAWR Û,-40,4:DRAWR 80,0,4:DRAWR 0,-40,4:DRAWR -500,0,4:0RIGIN 620,94:DRAW -140,0,4:DRAWR 0,-40,4:DR 
AWR 80,0,4:DRAWR 0,-40,4:DRAWR -500,0,4 
180 G0SUB 450 

190 0RIGIN 12,390:DRAW 270,0,1:DRAWR 0,-34,1:DRAWR -270,0,1:DRAWR 0,34,1 
200 0RIGIN 278,330:DRAW 250,0,1:DRAWR 0,-34,1:DRAWR -250,0,1:DRAWR 0,34,1 
205 INK 2,6 

210 ON T G0SUB 1870,1880,1890,1900,1910,1920,1930,1940,1950,1960,1970,1980,1990 
220 DIM b(3B,9):F0R Y=1 T0 9:F0R X=1 T0 38:L0CATE #1,X,Y:READ a:b(x,y)=a 


58 

















. 230 IF a=3 THEN PRINT #1,CHR*(240):ELSE IF a=l THEN PRINT #1,CHR*(207):EL3E IF a=0 THEN PRINT #1," ':ELSE IF a=2 THEN PRINT #1,CHR*( , 


202):ELSE IF a=9 THEN PRINT #1,CHR$(206) 

240 NEXT:NEXT 

250 x=29!y=4:v=8:u=7:k=3:i=I 

260 LOCATE tl,x,y:PRINT #1,CHRÎ(249):LOCATE #l,v,w:PRINT #Î,CHR$(225):L0CATE #l,k,lSPRINT #l,CHRt(240):B(V,W)=4:B(K,L)=3 

270 IMJHÜF U=2 THEN U=0:ELSE GOTO 320 
280 IF X>V THEN IF B(V+i,W)=0 THEN GOSUB 390:V=V+1 

290 IF X<V THEN IF BIV-l,W)=0 THEN GOSUB 390:V=V-1 

300 IF Y<W THEN IF BXV.W-I)=0 THEN GOSUB 390:W=W-i 

310 IF Y>W THEN IF B(V,W+1)=0 THEN GOSUB 39Q:W=W+1 

320 IF JOY(0)=2 THEN IF b(x,y+l)=0 THEN LOCATE #l,x,y SPRINT #1," ■: y =y+lsELSE IF b(x,y+l)=4 THEN GOSUB 390:ELSE IF b(x,y+l)=3 THEN 2 
030:ELSE IF b(x,y+l)=2 THEN GOSUB 50Q:ELSE IF b(x,y+l)=2 THEN b(x,y+l)=0 

330 IF J0Y(0)=1 THEN IF b(x,y-l)=0 THEN LOCATE ttl,x,y:PRINT #1/ *:y=y-l:ELSE IF b(x,y+l)=4 THEN GOSUE 400:ELSE IF b(x,y-l)=3 THEN 2 
030:ELSE IF b(x,y-l)=2 THEN GOSUB 5iQ:ELSE IF b(x,y-l)=2 THEN b(x,y-l)=0 

340 IF J0Y(Q)=4 THEN IF b(x-l,y)=0 THEN LOCATE #l,x,y:PRINT #1,* ’:x=x-l:ELSE IF b(x,y-l)=4 THEN GOSUB 39Q:ELSE IF b(x-l,y)=3 THEN 2 
030:£LSE IF b(x-l,y)=2 THEN GOSUB 520:ELSE IF b(x-l,y)=2 THEN b(x-l,y)=fl: 

350 IF J0Y(0)=8 THEN IF b(x+!,y)=0 THEN LOCATE #l,x,«SPRINT #1,* *:x=x+i:ELSE IF b(x,y+l)=4 THEN GOSUB 40Q:ELSE IF b(x+l,Y)=3 THEN 2 

030:ELSE IF b(x+t,y>=2 THEN GOSUB 530:ELSE IF b(x+l,y)=2 THEN b(x+l,y)=0 

360 IF B(X|Y)=3 OR B(X,Y+I)=3 OR B(X-l,Y+i!=3 THEN 2030 

370 IF B(X,Y)=4 THEN 400 

380 GOTO 260 

390 SOUND 1,788,2,15:LOCATE #1,V,W:PRINT #1,' ■:BiV,W)=0:RETURN 
400 FOR MUSIC=15 TO 8 STEP-IsSOUND 1,500,20,HUSIC,,,lsNEXT 
410 FOR i=22 TO 0 STEP-1:INK l,i:FOR j=l TO SOsNEXTîNEXT: INK 1,22 
420 vie=vie-l 

430 IF vie=0 THEN score=score:GOTQ 1780:ELSE 540 
440 END 

450 REH. VIE. 

460 LOCATE #5,20,6:PRINT #5,'VIES 1 -'LOCATE #5,26,6'-F0R 1=1 TO vie:PRINT #5,CHR*(248);:NEXT 
470 REH ... Scores .... 

480 LOCATE #5,2,2:FRINT *5,*SCQRE...>*îs 
490 RETURN 

500 s=s+10:L0CATE #1, x, y+1 : PRINT #1, * , :b(x,y+l)=0:L0CATE #5,2,2:PRINT #5,'SC0RE...> , is:RETURN 
510 5=5+10:LOCATE #l,x,y-l:PRINT #1,' ":b(x,y-l)=0:L0CATE #5,2,2:PRINT #5,"SC0RE...> , ;s:RETURN 
520 s=s+10:LOCATE #1,x-1,y:PRINT #1,* ’:b(x-I,y)=0:L0CATE #5,2,2:PRINT #5, , SC0RE...> , is:RETURN 
530 s=s+10:L0CATE »l,x+l,y:PRINT #1,’ *:b(x+l,y)=0:L0CATE #5,2,2sPRINT 15,’SCORE... >*;ssRETURN 
540 LOCATE #5,26,6:PRINT #5,' ":FOR 1=1 TO vie-'LOCATE #5,26+i,6:PRiNT »5,CHR$(248);:NEXT 


550 LOCATE. 11,’ 'LOCATE r.,v,#sPRINT • 

563 J =0:b< v,ui,'=0 
570 GOTO 250. 

580 DA.A lyly3yl|lflylyl|l|l,lylyl|l|i}lyi|iyl|ifi,l,l,l|l,l,lyiji|i,lyl,i|lyljlyl{l 
5^0 DAiA 1 yOyOyOy1)Il2|Il iy0,2,0yly1 1 ly 0,OyO,OiQ,Q,QyD,Il I, if 1 y Gy2,0,0,0,11 1 1 1,1,11 1 
«30 data MtO,o,o,o,i,i,o,n.n,n,n,n,n,n.o,:,t.’.j.i.n.n.n.n.o.o.o.n.n.n.o.ujj.i 
6 jD DATA 111)0|2|Oi0|Ot0)0|0y2t0|0y0|2yOrG,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1, lyûyOy 0,1 
6 -lü DATA M, Mi2,0,0,0, Mi M»Û, Q, 0,0, M, 1, M, 012,0,0,0,1,0,0,0,0,0,0,0,0,0,2,1 
630 DATA 1,1,1,0,0,0,0,0,0,0,0,0, OyOïOyOïQ, 0,0,0, Û|Q, 0,0,0,0, Oy 0, OyOyOtO, 0,0,0, G, 1, i 
640 DATA M,M,M,0,0,2,Q,0,M,M,1,0,0,4 1 0,0,M,M,M 1 0,0,Q,0,D,0,0,0,1,M 
650 DATA 1 y 1 yOyQyOyûy Oy Q,OyGyû,D,OyO|Oy OyOy Oy Oy Oy OyOïOy Oy Oy 1 y ly ly 1, 1, lyOy 2,0, ûyOïQy 1 

660 DA I A lylylylyi|lylylylyi>ifl|iyi|lyl|l|l|lflyl|lyltl(iylflylyl|l|l|l|lyiylylfl|l 

670 REH . 2 TABLEAU.' 

680 DATA" 1,1,1,lyl,1,1,lylyi,iyl,l,lylyl,1,1,l|l,iylyi,lyl,lylyiyl,iflfi,l,lyl 

690 DATA 1 y 1 yOylylyiyûyOyOyOyOyOyOylyly1 ylylyOy2yOyOyOyOyOyOyOïOyiylylyOyOyOyOyly1 y 1 
700 DATA lyl,Q,QyQ,2,Q,Q,Q,lylylyly1 ylyly1,0,0,0,0,0,0,0,lylylyOyOyOyOyOyOyQyly1,ly1 
710 DATA 1 ylylyOyOyOy Oyly1 1 Iy0y0y2y0ylyOy Oy Oyûy OyOyOy1 yly11lyOyOyOy OyOyOyOyOy Oy0|ly1 
720 DATA 1,1,1,0,0,0,2,0,0,0,0,G,0,0,0,0,0,0,G,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1 
730 DATA 1 y 1y0|0|OyûyOyOyOyly1 y 1 ylylyly1 ylylylyOyOyOyOyOyOyOyOyOyOyOylylyly1 yly1 yly1 
740 DATA lylylyly1 yOyOlOyOyOyOyOyOyOyOyOyOyOyOyOylylylylylylylylyOyOyOyQylylylylylyl 
750 DATA lyl,fylyl,0yO, OyOtO,OyOylylylylflyOy0,0,0,0,lylylylyljlyly0,2,0,1,1,1,1,1,1 

760 DATA ly'lylylylylylylylylilylyiylylylylylylylyliiylyltlylyltlyltlylilylyliiylylyl 

770 REW .. 3 tableau ... 

700 DATA l|l«3|lylylllyltlylylilflylflylylylylylyl|lylyl|lylflylylyl)lflylylylylylyl 

790 DATA 1yOyOyOyly Ly lylylyly1 y 1 y 1 y 1 yly1 y Oy OyOyOyOyOyOyOyOyOiOylyly lj ly0y0y2yOyOyOy1 
800 DATA 1yûyOyOyOyOyOyOyOyOy Oy1 y 1 y 1 yly1 y0y2t OyOyOy2y Oy OyOyOyOy OyOyOy OyOy OyOyOyOyly1 
810 DATA ly1 yly1,0,2» Oy OyOyOy1 y 1 yljlylyOy OyOyOyOyOyOyOy1 y 1 ylyOyOy Oy OyOyOyOyOylyly1 y 1 
820 DATA 1 1 1 yly1yOy OyOyOyOyOyOyOyOyOyOy Oy OyOy OyûyOyûy OyOyOy0|0yOyOyOy OyOyOyOyOy1 y 1 y 1 
830 DATA Iylylyly2y0yOyOyOyOtO|DyÛ|2|OyOyOyl|l(l|ltlylylylylylylyOyDyDyOyOyOyOyO|lyl 
840 DATA lylyOy0yOyOyOyOyOyOyOyOyOyOyOy OyOy OyOyOyOy Oy Oy OyOy OyOy OyOyOyOyOyOyOyOyOyOy1 
850 DATA 1 y 1 y 1 y 1 y 1 1 1|lf1yOyOyO|OyOyOyOyO|0y0|0|0|2|0y0y0y0y0y2y0y0i0i0y0y0y1 y 1 y 1 yly1 
860 DATA 1,1,1,1,1,1,1,1,1,1,1,1,M,1,1,1,1,1,1,1,t,ly 1,1,1,Myl,1,1,1,1,1,1,1,1,1 
870 REH ... 4 tableau .... 

880 DATA lyly3ylylylyl|lylflyl|iylylylyl|lflylflylyl|lflylylylylylylil|lylyl,l)lylyl 

890 DATA l,û,Q,Q,0,û,0, Q,Q,0,0,Û,0,0,0,0,0,0,0,0,0,0,0,0, <.,0,0,0,0, 0,0,2,0,0,0,0,0,1 
900 DATA 1 y 1,0,0,0, OyOyOy OyOyOy 2y OyOy OyOy OyOy OyOy OyOyOy Gy Oy Oy Oy Oy Oy 2y Oy OyOy OyOyOy i, 1 
910 DATA 1,1,1,0,0,0, 2,0,0,0, OyO, OyO, OyOy 0,0,0,0,0,0, Cl, 0,0, 2,0, 0,0, 0,0,0, 2,0,0,1 y 1,1 
920 DATA 1»lyly1 yOyOïQyOyOyOyOyOyOyOyOyOyQjQy2|ü,û,0y 2,OyOyOyOyOyOyOyOyOyOyOyly1 yly1 
930 DATA Iylylyl|ly0y0y0y0y0y0|0y0y0y0y0y0y0y0y0y0|0y0|0y0y0y0y0y0y0y0y0y0ylylylylyl 
940 DATA 1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2,0,1,1,1,1,1,1 
950 DATA 1 ylyly1 y 1, 1 ylyOyOy OyOyOyOyOyOy Oy OyOyOyOyOyOyOyOyOyOyOyOyOyOyOylyly1 yly1 yly1 
960 DATA lylylylylylylylylylylyl|lylylylylylylylylylfl|lylylylyl|lylylylylylylilyiyl 

970 REW ... 5 tableau ... — 

980 DATA 1,1,3, M, 1,1,1,1,1,1,1,M,1,M,1,M, 1,1,M, 1,1,1,1,1,1,1,1,1,1,1,1,1,1 
990 DATA I,0|0yû|0|ûy0y0,2|0,0y0y0y0yl,l|lyl,lylfl|l*l,l,lyû,0,D,2,OyOy0,1,1,1,lylyl 
1DOO DATA ly1,0,0,OyOyOyûyO,0,0,0,lyly1,ly1,lyly1,lylyiyly1,0,0,0,0,0,lylylylylylyly1 
1010 DATA 1]1 y 1,0,2,0,0,0y0,0,lyly1 y 1 y 1 y 1,0,OyOy0,0,2|0,0y1 y 1 y0,Q,0,OyOy0,0,0|1,1 yly1 
1020 DATA 1,ltlyOyOyûyüyOyO,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0,ü,0,1,1,1 
1030 DATA lyOyOyOyOy OyOyOy OyQyOyÛ, 0,0y0yQy0,0|0y Q,QyOyOyO,û,0,0,0,0, OyOy OyOy OyOylylyl 

1040 data 1 , 1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 010 , 0 , 0 , 0 , 0 , 010 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1,1 

1050 ÛATA lylyly1 yly1,ly1 y0,0,0, Oyû,0,0yû,0,0y0,0,0,0,0,0,0,0,0,Û,2,0,0,0,2,0,0,Oyly1 


1060 DATA l,;,l,l,M,Myi,M,M.M, 
1070 REW ...o tableau ... 


y 1$ 1, 1, ly 1 » ly 1,1 y ! , Iyly ,|2, Lt J,»ly ly l 


1030 DATA M<3,MyM,M,M,M,M,M,MsM,M>l.M,M!lyMlMyM.M,l 
lo9C DAT A iyCyL,C,J,u,J,CyC,0,0,0,l, i,1,C,0» OiO,Q.|Cy D,Üy 0,0,2,Q,0,Q, 0,Q, Di Oy*., If 1 1 1 y i 
1102 LATA M,0,2,0,2,0,0,0,C',0,M,M,l,C,:',0,0,0,0,0,0,.0,0,Ç.D,û,2«C,:sOiM,l,i,l 
1110 DATA il Lll'l’Oi OyOyOy OyOyOy 1) ly ly I y 1 y 1 y.1 |ü,0| 0,0| i, Oy OyOy OyOy 0y3y Û| Oy D, ly 1, iy 1 y lf 1 
1120 DATA 1,1,1,1,G.0,Ûi 2,0, î, 1 • 1,1, y 1,1,1,1, C, 2,0.C,0,0,0,0,0»Oy C, 1,1,1,1 • 1 • 1,. 
1.30 DATA 1,1,1,i>lyOfGlOylyIyly1 y 1,lyiy 2 y 1,1,1,0,0,DfD,Q)DlDj€yUfÛtdf1,1,1,if1|t,M 

1140 data m,û, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 13 , 0 , 0 ^ 0 , 0 , 0 , 0 , 0 , 0 , 1,1 

1150 DATA 1 1 lylylyI»2y0y0y0iüy0y0y DyOyOyOyO,QyOyO,OjOyOyGy Oyly1,1 y 1, lylyiylylyly1, 1,1 
1160 DATA MilyMyM.MlliMtlyMyMyMylrUiMyMiM.MaihMlVïW 


1170 REM ... 7 TABLEAU ... 

1180 DATA i,i,3,l,M,MyM,M,l,M,M,lil,l,MyM,l,M.VM.My 1,1,1,1,1,1 

1190 data i ,0, o, 0,0,0,o, o,0,0,0, o, o, 0,0,0,0,0,0,0,210,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 

1200 DATA l,C,0y0y0,0,0|2,0y0,0,0,0,0,0,0,0,0,OyO,OyO\OiO,Q,0,OyGyO,2>0»Q,OyOyQyQyOy L 
1210 DATA 1,0,0,C,0,0,0,0,0,0,0,'0,0,0,0,0,C,2 1 0,0,0,0,0,0,OyÛ,Dy0,0,0,0,0,0,0,0,0,0,1 
1220 DATA tyQyOyO,l, M,M, M» M, 2» M, M, M, M, M, M, 1, M, M, M, l y0,0«0, l 
1230 DATA 1,DfOyO,ly1 ylylylyly1,lylylyl,Tylylylyly1,lf1,ly1,ly1,ly1,1,1,lylyiyOyûyOyl 
1240 DATA 1,Û,Q,0,G,0,OyOyOy2,0,D,OyOyOy0,0,OyO,0,0,3,2,0, Oy0,0,0,Cy0,0,Oy2,OyOyOyOy 1 
1250 DATA lylylylyly1,2yü,0yOyOy0,0y0y0y0,0y2,0,OyOyOyOy0|OyOyOyOyOyQyOyOyOyOy2y0yOy 1 
1260 DATA lylilylylylylylylylylylylylylylylylyliltlilylylylylylylylylilylylylilylilyl 

1270 REH ... 8 TABLEAU ... 


1280 DATA lil|3|l|lyltljlyliiil,lylylylilylylyiylylyl|lylyl|lyl|lylylyl|lyl|l|lylylyl 
1290 DATA iyOyOyOyOyC,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,D,0,0,0,0,0,0,0,0,0,0,0,2,0,1 
1300 DATA iylylylyOyOyOyOyOyOyOyOyOyOyOyOyOyOyüyO,Q>OyOy0,0,0,OyOyOyOyOyOyOyly1,ly1,1 
1310 DATA ly ly 1, ly ly ly ly l y Oy Oy Oy Oy Oy 2,0, Oy Oy Oyüy Oy Oy Cy Oy Dy Oy 2| Oy OyOy ly ly 11 1 y ly ly ly lyl 
1320 DATA ly lyl, ly M,ly 1,1.1,1, 1,0,0,0,0,0,G,0,0*0,0,0,0,1,1, lyl, 1,1,1, Mil. l»i, Ifl 
1330 DATA 1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1 
1340 DATA l,0yû,0,0,0y0, Oyû»Q,OyOyOyO,QyO,0,0,0,0,0, 0,0,OyOyOy 2 yO,OyOyOy 0, OyüyOyûyOyl 
1350 DATA ly OyOy 0y0fc0y0y0y2yOyOy Oy1 ylylylylylylylylylylylylylylyl|QyOyOy2y0yOyOyQ,Oy1 
1360 DATA .l|lyMyiylylyl|Myly]|liMylylyl>l|lyi«lylylylylylyiylylylflylilylylylyi 
1370 REH 9 TABLEAU ... 

1380 DATA L,l,3,1,1,1,1,1,1,1,1,1,1,1,lyl,lylyMyli 1,1,1,Mil, 

1390 DATA 1,0.0,0,0,0%0,2,Q,M*1,M%1. 1,0,0,0,0,0,2,0,0,0,0,0,0,0,0,M,M,M,M 
1400 DATA i, 1,1,0,0,0,0,0,0,0,0,2,M,M,M,M,0,0,0,0,0,0,0,1,1,1,1,M, 1,1,1,1,1 
1410 DATA 1,1,1,1,0,QiO,0,0,0,û,0,0,0,0,2iMtM,MyM, 1,2,0,0,0,0,0,0,0,0,0,0,0,1 
1420 DATA ly1,Iy0y0y0,0i0,2t2y2,0y0y0y0y0y0y0y0,0,0?0ylylylylylyiylylylylylyGyOyOyOy1 
1430 DATA 1,1,0,2,1,1,1,1,1,111,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1 
1440 DATA 1,0,0,0,0,0,010,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 
1450 DATA lyOyOyOyOyOyOy0,0,OyOïOy2yOyO,OyOyOyO,0,OyO»0yQyOyOyOyO,Dy0,0,OyOyOyOyOy0»1 
1460 DATA M,l,M,M,M,M,M,M,M,t,M,M,M,M,ltl,M,ltMil,M,M 
1470 REM ... 10 tableau ... 

1480 DATA l,ly3yl,lylylil,l,lylylylylylylylylylylylylylyl,lyl,lylylylylylylilylylylyl 

1490 DATA i,Q,0,0,ü,Q,0,0,0,0,Q,0,2,OyO,Q,l,M,M,M,0,0,0,0,0,0,M,l,M,M,M 
1500 DATA 1,2»0,0i0,0,0,0,1,1, lyOyOyOyÜ, 0,0,0,0,0,0,0,0,0,0, ly I,2|0y0,0y0,0,0, iyly 1,1 
1510 DATA 1 yOyOyOyOyOyOyOyOy0,0,0,0,2,0,OyOyOyOyOyOylylylylylylyly 1 yly1,lyOy0,0,0,ly1 
1520 DATA 1,0*0,0,0,0,0,i, 1,l, 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0*0,0,0,0,M, 1,1,0,0,0,1 
1530 DATA 1,0,0,0y 0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,1 
1540 DATA 1 , 0 , 2 ,0,0,0,0,G,0,0, 0,0,0,0,0,M,M4,M>0,Q»a>OiQyO,QiM,l,QyQ,OyÛ,M 
1550 DATA ly ly 1, 1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,D,0|0,0*OyOy i 
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1670 RDI ... 12 tableau ... 

1680 DATA ljl*3»lilïl»l»liTil*l»liTiTîl^TïT'l»TiT*Til>l»lilil»lt**7i*'Tililil*l*lil*^ 
1690 DATA 1,0,0,0,1,1,1,0,2,D,1,1,1,0,2,0,1,1,1,0,2,0,l,l,t,B,2,0,1,1,1,0,13,2,1,1,1,1 
1700 DATA 1.0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,1 
1710 DATA 1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,2,0,0,0,0,1,1,1,1,1,111,0,0,0,0,0,0,2,1,1,1 
1720 DATA 1,2,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,O,0,0,1,1,1,1,1,1,0,0,0,0,0,0,1,1,0,0,0,1 
1730 DATA 1,0,0,0.0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,1 
1760 DATA 1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 
1750 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,1 
1760 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1*1,1,1,1,1,1,1,1,1,1 
1770 REM ... fin de jeu ... 


mission sans trop de dégâts' 


1560 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1.1,1,1,1,1,1,1,M, 1,1,M, 1,1, M,1 
1570 RDI ... 11 tableau ... 

1580 DATA 9,9,3,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9 
1590 DATA 9,0,0,0,0,0,0,0,0,2,0,0,0,9,9,9,9,9,9,9,9,9,9,2,0,0,0,0,0,0,0,0,0,0,0,0,0,9 
1600 DATA 9,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,0,0,0,0,9 
1610 DATA 9,0,0,0,0,2,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,2,0,0,0,0,0,0,0,9 
1620 DATA 9,0,0,0,0,9,9,9,9,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,0,0,0,0,0,0,0,0,2,0,0,0,0,9 
1630 DATA 9,9,9,0,0,0,0,0,9,0,0,0,0,2,0,2,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9 
1660 DATA 9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,O,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,0,0,O,0,9,9,9 
1650 DATA 9,0,0,0,0,0,0,9,9,9,9,9,9,0,0,0,0,0,0,9,9,9,0,0,0,0,0,0,0,2,0,0,0,0,0,0,9,9 
1660 DATA 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9 

1780 MODE OlLOCATE 2,12:PRINT 'G A M E - 0 V E R':FOR MM=1 TO 120Q:NEXT:FOR COL=22 TO 0 STEP-I:ÎNK I,COUFOR TCQL=1 TO 90=NEXT:NEXT 
1785 ÎNK 1,22 

1789 MODE 1 :PRINT SPC(14)'EULLBUS T ER' 

1790 PRINT:PRINT:PRINT' Votre score est de "is 

1800 LOCATE 9,22:PRINT'Une autre partie (07N)?' 

1810 kt=INKEY$ . 

1820 IF k$='o' OR k$=*0' THEN CLEAR : RUN 
1830 IF k*=V OR ki=*N' THEN MODE 2:END 
1840 GOTO 1810 
1850 END 
1860 RUN 

1870 RESTORE 580:RETURN 
1880 RESTORE 680:RETURN 
1890 RESTORE 780:RETURN 
1900 RESTORE 880:RETURN 
1910 RESTORE 980:RETURN 
1920 RESTORE 1080:RETURN 
1930 RESTORE 118û:RETURN 
1940 RESTORE 1280:RETURN 
1950 RESTORE 1380:RETURN 
1960 RESTORE 14B0:RETURN 
1970 RESTORE 1580:RETURN 
1980 RESTORE 1680:RETURN 
1990 GOTO 2000 

2000 REM ... fin de partie (uinner) ... 

2010 MODE 1:LOCATE 15,l:PRINT "BULLEUSTER*:LOCATE !5,2.’PRINT'- 

2011 LOCATE 4,6:PHINT a Bravo vous etes arrive au dut de votre 
2020 END 

2030 FOR g=80 TO 1 STEP-B:SOUND l,g,5,15:NEXT g:ERASE b:t=t+i:50T0 90 
2040 REM *♦» Structure ries régions *♦** 

2050 GOTO 2060 
2060 RETURN 

2070 INK i,0 îMODE ÜPEN 2:WIND0W #3,3,38,6,19:PAPER #3,2:CLS #3:WIND0W #4,4,37,7,18:PAPER #4,3:INK 3,24:CLS#4 
2080 INK 1,11 

2090 DATA 252,128,75,105,101,115,101,108,101,128,128,87,105,108,108,105,97,109,128,252 
2100 LOCATE #3,9,4:RESTORE 209Q:F0R 1=1 TO 20:READ Z:PRINT »3,CHR*(Z>;:NEXT 
2110 DATA 80,82,69,83,69,73,84,69 

2120 LOCATE #3,14,7:RESTORE 2110:FÔR 1=1 TO 8:READ Z:PRINT #3,CHRîiZ)i:NEXT 
2130 LOCATE 12,1 :PRINT*tc) 1985 VS.O* 

2140 Et='BULLEUSTER" 

2150 K=LEN(B$):B=K*S:x=(639-K*32i/2-1Q:LOCATE l,l:PEN 2:PRINT B$;:PEN 1 :tx=x:y=170:y'2=398 
2160 GR1G1N 0,0 

2170 FOR f=l TO 3:.x2=0:F0R g=l TO B 

2180 IF TEST(x2,y2i=2 THEN PLOT x,y,4:PL0T x+2,y:PL0ï >:+2,y-2 

2190 x=x+4:x2=x2+2:NEXT g: U =y-4:y2=y2-2:x=tx:NEXT f:LOCATE 1,1:PRINT SPACEttAi 

2200 PEN 2 

2210 TEXT1$="Pressa: CI] pour les instructions":TEXT2$=*Pressez la barre espace pour jouer" 

2220 LOCATE 5,21:PRINT TEXT1$:L0CATE 8,22:PRINT " *+text2$ 

2230 ORIGIN 6,90:DRAW 624,0,2:DRAWR □,-86,2:DRAWR -624,0,2:DRAWR 0,86,2 

2240 K$=INKEY*:IF K*=" THEN 2240 

2250 IF kt="' THEN 2250 

2260 IF Kt='I” OR K*='i* THEN 2300 

2270 IF K$=* ' THEN 2400 

2280 GOTO 2240 

2290 RETURN 

2300 MODE 1 :PEN 3:L0CATE 14,1 :PRINT*Instructions" 

2310 PRINT:PRINT‘ BULLEUSTER est un chasseur de bulles,lesquel les sont remplies d’un acide roor-tel.il faudra en ramasser le plus p 
ossi-ble..." 

2320 PRINT' Mais les GUARDBULLS (les monstres) selon leur humeur vous tuerons...alors attention,soyez vigilant' 

2330 PEN 2 

2340 ORIGIN 2,240:DRAW 632,0,2:DRAWR 0,-220,2:DRAWR -632,0,2:DRAWR 0,220,2 

2350 LOCATE 16,12:PRINT"Legendes':LQCATE 2,15:PRINT CHR$(249);' Bullbusters':LOCATE 23,15:PRINT CHR$(225);' Guardbulls' 

2360 LOCATE 2,17:PRINT CHR*(202>i' Bulles d’acides....> 10 points' 

2370 LOCATE 2,19:PRINT CHR$(240);' SORTIE...' 

2380 LOCATE 6,21:PRINT"Vous possédez 5 vies au depard' 

2390 LOCATE 8,23:PRINT'Appuyez sur une touche ! * :CALL 6BB06 
2400 PEN 1 : MODE ULOCATE 10,13:PRINT'B 0 N N E - C H A N C 
2410 FOR 1=22 TO 0 STEP-1:INK 1,I:F0R j=l TO 80:NEXT:NEXT 
2420 RETURN 


E' 
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On dit toujours que les Français (graisses qui “sautent aux han- 
“ereusent leur tombe avec leurs ches”), que protides, glucides, 
dents”. Il est vrai que nous man- cellulose, minéraux et vitamines, 
geons souvent n’importe quoi et Vous pourrez, à partir de divers 
n’importe comment... la base sous-menus, répondre à tous vos 
d'une saine alimentation dépend besoins et effectuer tous les cal- 
souvent des associations d’ali- culs nécessaires à une bonne ali¬ 
ments dont les compositions mentation. Vous aurez accès : 
nous sont inconnues. Ce pro- • 1 : Étude d’un menu que vous 
gramme de diététique person- aurez composé, 
nelle devrait vous faire découvrir • 2 ; Etude de la composition de 
ce monde des aliments, en vous certains aliments, 
donnant leurs compositions, • 3 : Lister les aliments choisis 
leurs apports en sels minéraux, pour votre menu (le programme 
vitamines... ou graisses... vous affichera alors, pour la 

Mesdames, finis les régimes dra- quantité choisie, l’eau, les pro- 
coniens, les “je ne mange plus tides, lipides, glucides, calories 
rien jusqu’aux vacances” parce et vitamines correspondants), 
que la hantise du maillot de bain • 4 : Modification d’un élément 
vous habite... Dosez vos menus, précédemment choisi dans votre 
observez les tableaux calorifi- menu. 

ques, évitez certains éléments, • 5 : Effacer la liste pour recom- 
composez-vous des menus équi- mencer un menu différent, 
librés. Ce programme vous indi- • 6 : Pour compléter votre 
quera aussi bien les lipides menu selon divers composants 


(vitamines, sels minéraux n’a besoin que de 2400 à 2800 
indispensables...). ‘ cal/jour, soit l’apport nécessaire 

• 7 : Pour étudier la composi- à une fillette de 12-13 ans ?). 

tion globale de votre menu du Etudiez bien votre, diététique 
jour. personnelle, faites du sport et 

• 8 : Pour étudier le tableau des buvez... utile !... 
apports caloriques nécessaires 
(saviez-vous qu’un homme 
ayant un travail physique faible 


Bon appétit H 

Albert os Barros 


ifi ’ Ïî 

30 ’ ** AMSTRAD CPC AêA »* 

AO ’ 

50 ISK 0,0:1»' t,9:H05E 2:3C.SD£R 9:SYHE0L 255,0,0,0,255 

60 DIM i temtlQO), poids! lODhcaract (25), total (23) ,no«i*(23),besiiihst23) 

70 DATA 'CaloriesVEau',“Protides 1 ,'Lipides','Glucides' 

80 DATA "Sodium', ' Pot assiurn', * Calcium", * Magnésium’, 'Chlore' 

90 DATA 'Phosphore','SoufreVManganeseVFerVCuivre','Iode',‘Vit. A’ 

100 DATA 'Vit. Bf,'Vit. î2VVit. PPWit. CWit. D\'Cellulose' 

110 DATA 2000,1000,700,A50,2500,1500.1200,3,1.5,2.5,.25,2,2,2.5,20,60,.01,0 
120 FOR i=l T0 23:READ nom* i i ) :NEXT i:F0R i=6 T0 23: RE AD besoins!i<:NEXT î 
130 flagl=0!CLS:PRIWiPRlNT_TAil32)î'MENU GENERAI :PR 1 NT;PRINT;print 
1A0 PRINT' 1 : Etudier votre menu en indiquant! les aliments’ 

150 PRINT' 2 : Etudier la composition de certains aliments* 

ÜO PRINT’ 3 : Lister les aliments choisis' 

170 PRINT' A : Effacer un element choisi de la liste' 

180 PRINT' 5 : Effacer la liste pour recommencer un menu différer.'.' 
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19C PRINT' 6 : Complemerter votre régime en vitamines ou en minéraux" 

200 PRINT’7 ! Etudier la composition globale de votre .tenu du jour* 

210 PR INT* 8 : Tableau des apports calorique necessaire 1 
220 PRINT* 9 : Fin":PRÎf<T:PRINT:SOSUE 5340 

230 IF choir.C OR choit)? THES 130 EL3E 1F choix =8 THEN GOSUB 6030:5070 130 
240 ON choix GOTO 260,250,670,760,310,820,5820,6030,6020 
250 flagl=l:G0T0 260 

160 CLSiPRÎNT TABUOK’MENV DES DIFFERENTES CATEGORIES D’ALIMENTS* 

220 PRINT : PRINT:PRINT:PRINT* 1 ; Viandes et volailles 1 ;TAÎ(40)i*2 : Triperie 1 

2SÜ PRINT’3 : Charcuterie 1 ;TAB(40)î*4 : Poissons 1 

290 PRINT‘5 : Crustacés,coquil!a 9 e 5 ‘;TAB( 4 D)î ‘6 : Oeufs 1 

300 PRINT*7 : Produits laitiers 1 ,'T4E(4ü(;'8 : Pain et produits cerealiers" 

310 PRINT 1 ? : LegumesNTAJIAO)i*10: Fruits* 

320 PRINT 1 11: Huile,Sel,Sucres,Condiments*;TABI4C»I* 12* Boissons 1 

330 PRINT"13: Vitamines, »ineraux"!TAB(40)i"14: Potages 4 Bouillons 1 

340 PRINTîPRINT 1 ??: Retour au menu primaire 1 :PRINT 

350 PRÎNT'O : Etude de votre régime alimentaire du jour*:PRINT 

360 GOSUB 5340:IF choix=99 THEN 130 ELSE IF choix=G THEN 5820 

370 1F choixü OR choix) 14 THEN 360 

330 cUchoixMF d=13 THEN 820 

390 ON cl GOSUB 410,420,430,440,450,460,470,*80,490,500,510,520,820,530 
400 GOTO 540 

410 RESTORE 920:nn*bre=18:RETURN 

420 RESTORE 1280:no»bre=5:RETURN 

430 RESTORE !380:nmbre=13:RETURN 

4sü RESTORE 164û:nombre=19:RETURN 

450 RESTORE 202Oino»bre=lliRETUIW 

460 RESTORE 2240:ncmbre=8:RETURN 

470 RESTORE 2400:nombre=22:RETURN 

480 RESTORE 2840:nrobre=18:RETURN 

490 RESTORE 3200:nonbre=36:RETURN 

500 RESTORE 3?20:ncmbre=23:RETURN 

510 RESTORE 4380:nombre=17:RETURN 

520 RESTORE 472Û:nombre=18:RE T URN 

530 RESTORE 5080:ncwibre=l2:RETURN 

540 CLS:F0R i=! TO nombre:GOSUB 5390 

550 IF i/2=INT(i/2>THEN »RINT TAÎ(40)iELSE PRINT 

560 PRINT U“: *in««$;:l€XT i 

570 PRINT:PRINTSPRINT 1 ?? : Retour menu secondaire 1 :PRINT:PRINT 
580 GOSUB 5340:IF cfteixO THEN 580 
590 IF choix=99 THEN 260 

600 ON cl GOSUB 410,420,430,440,450,460,470,430,490,500,510,520,130,530 
610 FOR i=l TO choixSGOSUB 5390:NEXT i 
620 1F f!agl=l THEN GOSUB 5650:G0T0 390 
630 GOSUB 5360 

640 IF poidsvO THEN GOSUB 5650:GOT0 630 
650 IF poids=0 THEN 390 
660 GOSUB 54QO:GOTO 390 
670 CLSiRESTORE 920:ai=0:GOSUB 5320 

.680 PRINT’N Fd (g) Aliment : Eau Pro Lip Glu Cal "i 

690 PRÎNT'Vitamines : 1 :GOSUB 5320:F0R i=l TO nitea 

7DO IF iterniiKO THEN PRINT USINS 1 ## 1 ii|:PRINT USING’_ I*##.#. 1 Ipoidsil1;SPRINT 
homi(-l*ite»til >;: IF ite»li><-5 THEN PRINT" lmg)*:G 
0T0 750 ELSE PRINTiGOTO 750 
710 IF itemiiXai THEN 730 

720 FOR 4=1 TO nantil-ai:G0SÜB 5390:NEXT k:GOTO 740 
730 RESTORE 92DSRW k=l TO iten,.i) : GOSUB 53?0:N£XT k 
740 GOSUB 551C:ai=itejili) 

750 NEXT i:GOSUB 5320:G0SU8 5330:5070 130 

760 CLS:INPUT”Entrez le numéro de l'aliment a effacer : 1 ,ndel:GOSUB 5460 

770 IF ndel=nitem THEN nitem=mtem-l:GOTO 800 

780 varl=i terni nden:item(ndel)=iteminitemi:itemlniteml=varl 

790 var2=poidsindel):poids(ndel)=poids<nitem):poidsiniteiii)=var2:nitem=nitem-l 

800 PRINT 1 Aliment numéro "iiKfeli" efface*:60SUB 5330:GOTO 130 

810 connu=0:n 1 1em=Q:flagsel=0SPRINT 1 *»* LISTE EFFACEE *w’:60SUÏ 5330:G0T0 130 

820 CLS:PRINT TABI20)i 1 COMPLEMENTATION EN VITAMINES OU MINERAUX":PRINT:PR INT 

830 FOR i=3 TO 22:IF i/2=INT ii/2/THEN PRINT TAB(40),ELSE PRINT 

840 PRINT f-2i*: "inomtliliiNEXT i 

850 PRINT:PRINT:PRINT"99: Retour au menu primaire 1 :PRINT:PRINT 
860 GOSUB 5340:IF choix=99 THEN 130 
870 IF choixCO OR choiv)20 THEN 860 

880 CLS:PRINT"Entre: la quantité de *înciattchoixa-2)î* prise en *i 
390 IF choir,<4 THEN PRINT'g : "iELSE PRlNT‘mg : *i 
900 INPUT vit:totallchoix+2)=total(choix+2)+vit:nitem=nite»+l 
910 item(nitem)=-I»(choix+2):paids(nite*)=vit:G0T0 820 
920 DATA 1,'Boeuf (mi-gras) 1 ,250,60,17,20,0.5 

930 DATA 70,300,10,20,70,200,240,.018,3.5,.05,.0035,.02,.9,.2,4.5,1,-1,O 

940 DATA 2,’Corned beef*,235,37,25,15,0 

950 DATA 1700,400,30,-1,-1,115,-1,-1,4,-1,-1,0,0.02,0.2,3,0,-1,0 

960 DATA 3,'Veau 1 ,175,70,18,11,0.5 

970 DATA 48,330,10,23,75,200,205,.03,2.5,.25,.003,.02,.16,.25,8,1.5,-1,0 
980 DATA 4,'Houtan mi-gras",237,62,17,19,0 

990 DATA 80,300,10,24,100,170,30,0.005,2.5,-1,-1,0.03,0.2,0.21,5,1,-1,0 
1000 DATA 5,•Agneau 1 ,280,50,16,24,0 

1010 DATA 90,265,10,24,BO,150,230,-1,1.8,0.44,-1,-1,0.2,0.25,4,O,-1,0 
1020 DATA 6 ,'Cheval 1 ,110,75,22,2,1 

1030 DATA 21,157,13,23,9,200,225,-1,-1,0.6,-1,-1,0.05,0.1,5,3,-1,0 
10A0 DATA 7,‘Porc mi-gras 1 ,290,56,16,25,0.5 
1050 DATA 60,300,10,30,60,200,200,0.06,2.5,0.3,-1,0,1,0.2,4,1.5,-1,0 
1060 DATA 8,‘Lapin 1 ,120,70,22,10,0.5 

1070 DATA 40,400,18,-1,51,220,220,0.005,2.5,-1,-1,0.01,0.05,0.15,7.5,2,-1,0 
1080 DATA 9,‘Poulet‘,150,70,21,7,1 

1090 DATA 60,350,10,20,80,200,250,0.006,1,0.35,-1,-1,0.1,.02,8,4,-1,0 

1100 DATA 10,'Viande sechee ou fumee 1 ,194,47.7,34.3,6.3,0 

1110 DATA 4300,200,20,-1,-1,406,-1,-1,5.1,-1,-1,0,0.11,0.32,3.7,0,-1,0 


1120 DATA 11,‘lievre’,99,73,22.3,0.9,0.2 

1130 DATA -1.-M2,-1,-1,157,-i,- 1 , 3 . 1 ,- 1 ,- 1 ,0,0.09,0.19,5,-1.-1,0 
1140 DATA 12, Valsai’,108,72,22,4,0.5 

1150 DATA - 1 ,-1,-1,-1,-1,-1,-1,-1,-i,-1,-1i-l,-1,-1,-1,-i,-1,0 

1160 DATA 13,"Perdriii;,PerdrauA‘, 115,72^25,1.4,0.5 

1170 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1.-1,-1,-1, -1,-1, -1,0 

1160 DATA Ki'Canard oomeâtique‘,322,54,16,28.6,0 

1190 DATA 35,285,10,15,-1,188,-1,-1,1.8,0.4,-1,-1,0.1,0.24,5.6,8,-1,0 

S20C DATA 15,"Dinde',245,58.2,20.1,18.1,0.4 

1210 DATA 66,340,25,-1,122,320,230,-1,3.3.0.2,-1,-1,0.13,0.14,7.9,0,-1,0 
1220 DATA 16,"Oie 1 ,358,50.5,16.2,32.5,0 

1230 DATA 85,420,Î3,-1,-1,184,1.9,0.33,-1,-1,0.13,0.22,5.6,-1,-1,0 
1240 DATA 17,"Pigeon 1 ,108,74,22,2,0.5 

1250 DATA -1,-1,-1,-1,-1,173,-1,-1,-1,-1,-1,-1,-1,-1,-1,3,-1,0 
1260 DATA 18,"Poule",297,5b,18,25,0 

1270 DATA -1,-1,13,-1,-1,200,-1,-1,1.5,-1,-1,-1,0.08,0.16,8,-1,0.0011,0 
1280 DATA 19,“Cervelle 1 ,120,79,10,8.5,1 

1290 DATA 90,340,6,10,2X,360,200,-1,5,0.2,-1,-1,0.2,0.2,A, 19,-1,0 
1300 BATA 20,"Foie de veau",200,70,21,5,4 

1310 DATA 110,300,10,20,100,210,250,0.3,5.5,3.5,-1,5,0.2,2.5,17,30,0.0005,0 
1320 DATA 21,"Langue",200,48,16.5,15,0.5 

1330 DATA 100,260,30,-1,-1,120,-1,0.02,7,-1,-1,-1,0.2,0.25,5,6,-1,0 
1340 DATA 22,"Rognons",125,75,20,6,0.5 

1350 DATA 210,310,10,18,250,200,190,0.08,10,0.1,-1.0.35,0.3,2,S,11,-1,0 
1360 DATA 23,"Tripes",94,80,19,2,0 

1370 DATA 46,20,10,-1,-1,130,-1,-1,1.5,-1,-1,-1,0.01,-1,3,18,-1,0 
1380 DATA 24,■Jambon",180,55,20,31,0.5 

1390 DATA 40,350,17,30,70,200,200,0.05,23,0.3,-1.-1,1,0.2,4.5,-1,-1,0 
1400 DATA 25,"jambon maigre",170,68,20,10,0-5 

1410 DATA 2100,610,20,30,70,200,200,0.06,1.5',0.3,-1,0,1,0.2,4.5,-1,-1,0 
142D DATA 26,"Boudin 1 ,370,47,15,35,O 

1430 DATA -1,-1,10,-1,-1,160,-1,-1,1,-1,-1,-1,-1,-1,-1,-1,-1,0 

1440 DATA 27,"Pâte de fdie gras",455,37,14,42,5 

1450 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0.03,-1,-1,-1,-1,0 

1460 DATA 28,"Rilletes",600,18,22,57,0 

1470 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

1480 DATA 29,"Saucisse (de porc)",420,37,15,40,-1 

1490 DATA -1,-1,5,-1,-1,100,-1,-1,1.5,-1,0.002,0,-1,-1,-1,-1,-1,0 

1500 DATA 30,"Saucisson (Arles)",560,17,25,50,0 

1510 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

1520 DATA 31,"Saucisson IBoulcogne)*,230,62,17,18,0 

1530 DATA 220,84,9,-1,-1,160,-1,-1,2,-1,-1,0,0.3,0.3,3,0,-1,0 

1540 DATA 32,"Lard",780,-1,4,-1,0 

1550 DATA -1,-1,2,-1,-1,42,-1,-1,-1,-1,-1,-1,.2,-1,1,-1,-1,0 
1560 DATA 33.“Saindoux",892,1,1,99,0 

1570 DATA 0.3,0.2,1,-1,4,3,25,-1,0.1,0.02,-1,0,0.006,0,0,0,-1,0 

1580 DATA 34,'Andouillette grülee",320,52i23,24.9,0.8 

1590 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

1600 DATA 35,"Mortadelle",265,56,19,21,0 

1610 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

1620 DATA 36,"Saucisse de Francfort",263,60,14.2,20.5,2.7 

1630 DATA 1100,230,8,-1,-1,100,-1,-1,1.5,-1,-1,0,0.18,3.19,2.8,0,-1,0 

1640 DATA 37,"Aiglefin",74,77,17,0.3,0 

1650 DATA 660,315,20,25,1070,190,240,0.015,1,0.25,0.005,0,0.1,0.15,i,0,-1,0 
1660 DATA 38,"Colin",86,80,17,2,0 

1670 DATA 89,274,64,20,220,180,190,-1,1,-1,0.002,-1,0.08,0.1,2,1,-1,0 
1680 DATA 39,"Hareng frais",183,6e,19,12,0 

1690 DATA 140,350,5,33,170,230,197,.045,1,.16,.01,.053,.15,.35,7.7,0,.0013,0 
1700 DATA 4G,"Limande et sole",65,83,15,0.5,0 

1710 DATA 70,330,30,31,150,195,170,0,0.3,0.18,-1,0.009,0.22,0.21,3.8,-1,-1,0 
1720 DATA 41,"Maquereau",128,68,18,S,0 

1730 DATA -1,418,10,33,-1,25-0,200,.045,.9,.6,.01,.04,. 15,,3,8,4,.015,0 
1740 DATA 42,’Morue fraîche = cabillaud 1 ,80,83,15,0.3,0 
1750 DATA 60,360,10,17,87,190,200,0.01,0.5,0.55,0.02,0,0.1,0.15,2,2,-1,0 
1760 DATA 43,"Merlan 1 ,80,82.5,16,0.6,0 

1770 DATA 61,300,45,30,87,240,202,-1,0.9,0.1,0.01,-1,0.09,0.07,2.1,4,-1,0 
1780 DATA 44,“5ardine fraîche 1 ,174,69,21,10,0 

1790 DATA -1,-1,288,-1,-1,490,-1,1.12,1.2,-1,0.016,0.0B9,-1,0.4,-1,2.5,0.036,0 
1800 DATA 45,"Sardine a l'huile 1 ,190,55,25,13.5,1 
1810 DATA 760,260,30,-1,-1,300,-1,-1,1.5,-1,-1,.025,.05,.1,4.5,-1,.04,0 
1820 DATA 46,‘Saumon frais",200,65,20,14,0 

1830 DATA 50,390,-24,30,64,270,195,-1,0.8,0.2,0.04,0.066,0.17,0.17,7.5,1,.016,0 

1840 DATA 47,‘Saumon en conserve 1 ,170,67,20,9,0 

1850 DATA 470,330,37,30,-1,286,260,-1,1.3,-1,.02,0,.03,.2,6.5,0,.01,0 

1860 DATA 48,"Thon frais",225,58,27,13,0 

1870 DATA -1,-1,5,-1,-1,-1,-1,-1,1.5,-1,0.08,0.3,0.05,0.11,-1,-1,0.06,0 
1880 DATA 49,"Thon a l’huile",180,58,28,12,0 

1890 DATA 540,480,35,-1,-1,290,-1,-1,1.7,-1,-1,.025,.05,. 11,13,0,.025,0 
1900 DATA 50,"Brochet",80,80,19,.5,0 

1910 DATA 75,350, 20 ,25,100,200,200,-1,1,.25,;006,-t,.l,.07,1.7,-1,-1,0 
1920 DATA 51,“Carpe",149,72.4,19,7,0 

1930 DATA 50,280,34,20,62,220,50,-1,1,-1,-1,0.09,0.09,0.04,1.5,1.5,-1,0 
1940 DATA 52,‘Truite commune",96,77.6,19,2,0 

1950 DATA 40,410,20,25,105,220,240,-1,1,0.33,0.003,0.045,0.1,0.15,3.5,2,-1,0 
1960 DATA 53,"Anchois",167,65,20,9,0.6 

1970 DATA -1,-1,18,-1,-1,182,-1,-1,0.9,-1,-1,0.15,0.06,0.5,2.6,-1,-1,0 
1980 DATA 54,"Dorade",77,81,17,1,0 * 

1990 DATA -1,-1,53,-1,220,350,-1,-1,0.9,-1,-1,-1,-1,-1,-1,-1,-1,0 
2000 DATA 55,"Raie",89,7B,20,1,0 

2010 DATA 75,240,20,25,108,240,230,-1,1,-1,-1,-1,-1,-1,-1,-1,-1,0 
2020 DATA 56,"Huîtres",66,88,9,1.2,4.8 

2030 DATA 290,198,94,42,630,142,190,.5,5.6,2.5,.018,.1,.18,.23,1.2,.8,.00013,0 
2040 DATA 57,"Moules",85,82.5,12,1.7,2.2 

2050 DATA 290,315,100,23,460,250,-1,.25,24,3.2,.03,-1,-1,-1,-1,17,-1,0 
2060 DATA 58,‘Crabe frais 1 ,9?,77,17,3,1.3 
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2370 DATA 400,no,*5,-1,0.9,1.3,0.04,-!,0.05,0.06,2.!,3.5,-1,0 

:oes data svifcwfd frais*,sa,79,14,2,0.5 

3090 data ic;,:âO,61,22,500,20':'.PO,0.04,0.6,3.2,0.037,-1,0.15,0.13,2.5,-1.0 
2130 DATA 60,‘Crevettes cuites -raiçfces",96,78,19,2.2,0.3 
2110 DATA 1403,263,200,40,2500,330,3C0,.03,2,.43,.1,.003,.07,,05,1.S,2,-1,0 
2120 DATA il,"Craties conserve',101,77,17,3,1.3 

2130 DATA 1000,-1,30,-1,-1,180,-1,-1,0.T,-1,0,04,-1,0.05,0.15,2.5,-1,-1,0 

2140 DATA 12,"Crevettes conservées",85, 7 5.6,15.7,0.9,0.3 

2150 DATA 1400,220,60,-1,-1,152--1,-1,1.8,'-1,-1,0.018,0.01,0.03,1.4,0,0.0026,0 

2160 Data 63,"Ecre.isse‘,73,81,16,0.5,1 

2170 DATA -!,■-1,-1,-1,-1,240,100,-1,-1,-1,-1,-1,-1,-1,-1,4,-1,0 

2150 DATA 64,"Escargot*,76,82,15,0.8,2 

2190 DATA -1,-1,170,250,-1,-1,140,-1,3.5,0.4,0.006,-1,-1,-1,-1,15,-1,0 

22X DATA 65,"Cuisse de grenouille",69,SI.9,16.4,0.3,0 

2210 DATA 55,303,18,23.40,147,40,-1,1.1,-1,3.317,-1,0.14,0.25,1.2,5,-1,0 

2220 DATA 66,"Hosiard conserve',37,77.2,18.4,1.3,0.4 

2230 DATA -1,-1,45,-1,-1,190,-1,-1,0.8,-1,-1,-1,0.16,0.14,2.2,4,-1,0 

2240 DATA 67,"100 g d'oeuf (1 ceuf=50 g)",162,74,13,12,0.6 

2250 DATA 130,140,55,11,120,200,195,.05,2.8,.25,.02,.3,.13,.3,.15,0,.002,0 

2260 DATA 68,"Jaune d’oeuf*,355,50,16,32,.5 

2270 DATA 34,65,140,18,110,525,165,.1,8,79,-1,1,.3,.45,.05,0,.005,0 

2280 DATA 69,"Blanc d'oeuf’,48,88,11,.2,.7 

2290 DATA 200,140,14,10,160,12,220,.01,.1,.05,-1,0,0,.2,.1,0,-1,0 

2300 DATA 70,"Caviarluoyenne)*,261,43,30,15,2 

2310 DATA 1500,410,137,22,1800,190,-1,-1,1,-1,-1,-1,0,-1,-1,-1,-1,0 

2320 DATA 71,"Oeuf de morue',115,71,24,1.8,0.7 

2330 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,1,1,1.5,40,-1,0 

2340 DATA 72,"Oeuf de cane",1D2,30,7,BiO.5 

2350 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

2360 DATA 73,"Oeuf de Dinde*,172,72.8,13,12.5,1.7 

2370 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

2380 DATA 74,"Oeuf d’Oie*,175,71,14,13,0.3 

2390 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

2400 DATA 75,"Lait de vache entier",67,87,3.3,3.8,4.7 

2410 DATA 77,143,137,13,108,91,30,.003,.05,.01,.012,.03,.01,.04,.07,1,.0001,0 

2420 DATA 76,"Lait de vache ecreme',36,90,3.5,.2,5 

2430 DATA 55,200,130,14,107,95,-1,-1,. 2,-1,-1,-1,.05,.2,.1,2,-1,0 

2440 DATA 77,"Lait condense sucre*,346,24,10,10,54 

2450 DATA -1,-1,273,-1,-1,228,-1,-1,.2,-1,-1,-1,.05,.4,.2,1,-1,0 

2460 DATA 78,"Lait entier en poudre",500,5,25,26,37 

2470 DATA 380,1140,950,90,760,630,260,.02,.7,.3,-1,.1».3,1.3,.7,9,-1,0 

2480 DATA 79,"Beurre",735,17.4,0.6,81,0.7 

2490 DATA 10,23,16,1,-1,16,9,0.04,0.19,0.03,0.006,1,0.03,0.01,0.1,0.3,0.001,0 

2500 DATA 80,*Creire fraîche*,298,62.4,3,30 

2510 DATA 4,18,60,73,-1,00,77,-1,-1,.1,-1,-1,-1,.03,.15,.1,1,.001,0 

252C DATA 81,"Yaourt (1 gaourt 125g)*,72,86,4.8,3.3,4.5 

2530 DATA 62,190,150,-1,-1,135,-1,-1,0.2,-!,-1,0.044,0.045,0.024,0.18,2,-1,0 

2540 DATA 82,’Fromage blanc',120,BO,9,8,4 

2550 DATA -1,-1,162,-1,-1,91,-1,-1,-1,-1,-1,.05,.02,.3,.1,1.5,-1,0 

2560 DATA 83,"Fromage en formelpetit suisse,...)”,191,70,10,15,4 

2570 DATA 760,-1,110,-1,650,90,-1,-1,-1,-1,-1,0.05,-1,0.3,0.1,1.5,-1,0 

2580 DATA B4,*ïr;e, CouIOMiers* ,270,56,18,23,3.5 

259C DATA 700,150,130,40,800,180,-1,-1,3,-1,-1,.5,-1,.6,1.5, .4, .001,0 

2600 DATA 85,’Sruyere, Parmesan, Emmenthal",400,35,37,30,2.3 

2610 DATA 760,150,1100,45,1100,700,250,-1,3,.35,-1,.015,.03,.3,-1,-1,.001,0 

2620 DATA 86,'Roguefort au Bleus',410,40,23,34,2 

2630 DATA 800,150,oOO,40,1500,350,-1,-1,1,-1,-1,1.3,.03,.7,1,.4,.001,0 

2640 DATA 87,"Chevre*,320,50,20,20,15 

2650 DATA -1,-1,190,-1,-1,190,-1,-1,-1,-1,-1,0.04,0.03,0.6,0.2,1.2,-1,0 

2660 DATA 88,"Lait er, poudre ecreme',345,0,36,-1,-1 

2670 DATA -1,-1,1300,-1,-1,950,-1,-1,-1,-1,-1,-1,.36,-1,-1,-1,-1,-1 

26B0 DATA 89,‘Lait condense non sucre",157,-1,7.2,-1,-1 

2690 DATA -1,-1,240,-1,-1,195,-1,-1,-1,-1,-1,-1,.05,-1,.2,1,-1,-1 

2700 DATA 90,"Fromage blanc ecreme",IX,-1,20,-1,2.25 

2710 DATA -1,-1,90,-1,-1,100,-l,-l,-t,-l,-l,-l,-l,-l,-l,.l,-1,-1 

2720 DATA 91,"Port-salut*,360,-1,27,-1,-1 

2730 DATA -1,-1,600,-1,-1,440,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

2740 DATA 92,'Fromage de Hollande",353,39,29,25,3 

2750 DATA 850,-1,780,-1,-1,330,-1,-1,-1,-1,-1,0.5,-1,-1,-1,0,-1,-1 

2760 DATA 93,”Camembert'. 300,53,195,24,3 

2770 DATA 1100,125,268,18,-1,186,-1,-1,0.5,0.03,-1,0.31,0.05,0.45,1.45,0,-1,-1 
2780 DATA 94,"Margarine",752,-1,.8,81,.4 

279D DATA 300,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-!,.006,-1,-1,-1,-1,-1 

2B00 DATA 95,"Creme Chantilly",316,61.6,2.3,32.7,3.1 

2810 DATA 39,67,77,-1,-1,62,-1,-1,0.05,-1,-1,0.25,0.025,0.14,0.09,1,0.001,-1 

2320 DATA 9b,“Cantal",386,37,23,30,5.8 

2830 DATA -1,-1,783,-1,-1,460,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

2840 DATA 97,"Pam de ble ou de seigle',245,36,7,1,52 

2850 DATA 500,100,30,45,700,100,100,0.6,1.7,0.25,0.001,0,0.2,0.16,1,0,-1,0.2 

2860 DATA 93,"Biscottes de ble',371,8.5,10,3.5,75.2 

2870 DATA 260,160,42,16,-1,120,260,-1,1.5,0.5,0.002,-1,0.1,0.08,1.3,0,-1,0.6 

2880 DATA 99,’pain d'epices',354,-1,9,3.3,72 

2890 DATA -l,-l,40,16,-l,200,-l,.3,3,l,-l,-t,.08,.l,-U-l,-t,.3 

2900 DATA 100,'Biscuits secs",420,10,7,12,75 

2910 DATA -1,-1,5,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

2920 DATA 101,"Flocons d’avoine',374,11,14,6,66.4 

2930 DATA 2,340,54,148,49,404,2,-1,4.3,1.22,-1,-1,.4,.14,1.1,0,2,1.4 

2940 DATA 102,'Farine de ble',340,12,10.5,1.5,71 

2950 DATA 10,450,25,140,50,300,180,3,4,.7,.003,-l,.l,.2,4,0,-1,.7 

2960 DATA 103,'Grains de mais’,354,13.5,9.5,4.4,69 

2970 DATA 1,340,20,120,45,280,151,1,3,.7,.001,.01,.4,.1,2,O,-1,2.2 

2980 DATA 104,'Ri: blanc',354,12.3,6.2,1.7,77 

2990 DATA 4,120,8,28,6,80,106,1, .3, .2,.001,0,.06,.03,1.5,0,0,.2 

3000 DATA 105,"Semoules de ble’,353,13,10.3,.8,76 

3010 DATA 1,112,17,-1,-1,88,-1,-1,1,-1,-1,0,0.12,0.04,1.3,0,1.8,0.4 


3020 DATA iCi, ‘Germe de t’.e'jJK, .1,25.3, !0,47.~ 

3030 DATA -1,780,90,400,'3,1100:320 -1,8,1.7,-1,-J,1,2.5,5,1,0.0037,1.8 
j34C DaTA .07,"Pâtes sans oeufs",la?,-i,12,-1,*1 
3C50 DATA -1 , 22,-1, -l, 144, -i,-l,-l,-‘M-i:-t,. 1,-1,3 

3060 DATA 128,"Farine de sais*,259,il, 7 .S,2.6,76.1 

3070 DATA 0.7,300,6,34,-1,178,127.-1,1.9,0.2,3,03,0.5,0.16■ 3.1,2,-1,2.7 

3080 DATA 109,"Farine de rn*,347,12,7.5,S.5,78 

3390 DA T A -1,-1,10,-1,-1,-1,-1,-1,0.6,-!,-1,-1,Ô.OÉM-O.raa.V'-,3.2 

3i00 DATA 110,‘Grain oe ri: poli',116,71,2.5,0.3,25.3 

3110 DATA 2,38,4,-1,9,44,27,-1,0.3,-1.-1,-1,0.02,0.01,0.75.0,-1,0.1 

3120 DATA 111,'croustillons & oe;sneis\41B,18.7,5.6,:i,51.5 

3130 DATA -1,-1,73,-1,-1,280,-1,-1,0.7,-1,-1,-1,3.15,0,14.1.2,0,-1,-1 

3140 DATA 112."rates cru',370,3.6,12.8,1.4,76,5 

3150 BATA 5,80,22,35,-1,165,-1,-1,1.5,0,0.09,0.06,2,0,-1,0.3 

3160 DATA 113,"Pâtes cuites',148,60.6,5.1,0.6,30.5 

3170 DATA -1,-1,9,-1,-1,65,-1,-1,0.6,-1,-1.0,0.02,0.01,0.5,0,-1,0.2 

3130 DATA 114,'Patisseries-Sateaüxlmoysnr.es)",282,36,6,10,40 

3190 DATA -1,-1,100,-1,-1,-1,-1,-1,1.6,-1,-1.0.03,0.16,0.22,1.4,-1,-1,-1 

3200 DATA 115,"Artichaut",63,82,3.4,.3i12 

3210 DA T A 43,430,40,-1,22,94,21,.36,1.9,.2,.001,0.007,.15,.01,.1,9,-1,1.5 
3220 DATA 116,'AU frais!tete)', 138,63.4,6,0.15,28.1 
3230 DATA 32,515,38,36,-1,134,-1,-1,1.4,-1,0.09,-1,0.2,0.08,0.6,14,-1,1.1 
3240 DATA 117,'Asperge',20,93,2,.2,3.9 

3250 DATA 2,200,12,11,40,80,40,.3,.9,.14,.0017,.35,.15,,10,1.3,25,-1,.8 
3260 DATA 118,'Aubergine',29,92,1.3,.2,5.5 

3270 DATA 5,220,0.5,12,50,15,16,.19,.5,.1,.0018,.0!,.04,.05,.6,8,-1,-1 
3280 DATA 119,'Betterave rouge*,40,86,1.6,.1,8 
3290 DATA 110,340,27,-1,60,40,6,-1,1,.1,-1,.05,.02,.05,.4,9,-1,1.4 
3300 DATA 120,'Carotte",42,88,1.2,.3,9 

3310 DATA 31,300,50,15,50,30,22,.6,1.2,.14,.009,4,.1,.06,.5,9,-’, 1.1 
3320 DATA 121,"Celeri",20,93,1.3,.2,3.7 

3330 DATA 100,290,60,25,137,4Q,22,-1,.5,-1,-1,.02,.05,.D4,.4,7,-1,.7 

3340 DATA 122,"Champignons de couche",29,91.4,2.2,0.24,4.4 

3350 DATA 6,460,12,120,95,120,34,0.58,IÜ.4,0.018,OiO.1,0.44,6.2,4,0.0038,0.9 

3360 DATA 123,"Chou ordinaire',24,90,l.B,.3,6 

3370 DATA 5,330,60,20,40,31,ICO,.17,.6,.1,.002,.4,.07,.06,.3,60,-1,1.3 

3380 DATA 124,"Chou de Bruxelles",54,85,4,.07,8 

3390 DATA 10,375,30,60,10,30,131,.25,1.3,.1,0,.05,.015,.16,I,80,-1,1.3 

3400 DATA 125,"Chou rouge",24,89,1.9,.2,7.2 

3410 DATA 32,3.2,53,17,45,32,68,.12,.57,.1,-1,.25,.1,-1,.4,70,-1,-! 

3420 DATA 126,"Chou-fleur",30,90,2.4,.2,4.9 

3430 DATA 24,300,120,18,29,72,85,.2,1.1,.17,;.OOJ,.03,.15,.12,.6,50,-1..9 
3440 DATA 127,'Choucroute",22,91,1.4,.4,5 

3450 DATA 730,300,40,-1,-1,10,-1,-1,2,0.1,.0006,.002,.02,.1,.15,16,-1,1.4 

3460 DATA 128,"Citrouille (potiron, courge!’,31,90,1.3,.2,6 

3470 DATA 3,400,22,9,20,35,10,.14,.6,.07,-1,.33,.05,.05,.5,7.5,-1,1.3 

3480 DATA 129,"Concombre, Cornichon",24,96,.7,.1,3 

3490 DATA 12,140,18,9,27,25,15,-1,.3,.15,.0013,.07,.03,.04,.2,5,-1,-1 

3500 DATA 130,"Endive, Chicorée*,22,93,1.5,.1,4 

3510 DATA 18,400,80,13,50,32,25,.3,1.4,.14,-1,.3,.07,.12,.4,10,-1,.7 

3520 DATA 131,"Epinard",20,92,2.3,.3,7.5 

3530 DATA 300,500,70,50,75,55,30,.8,4,. 18,.00-2,6, .20,.33,0.23,60,-1,.7 

3540 DATA 132,"Haricot ordinaire sec',330,12,19,1.5,60 

3550 DATA 40,1000,137,150,25,400,220,2,6.7,.9,.002,-1,.54,.18,2.1,0,0,4 

3560 DATA 133,"Haricot vert frais',39,89,2.4,.2,3.5 

3570 DATA 0.8,260,4,25,23,44,30,.32,.9,.18,.032,.2,.08,.1, .5,19,-1,1.9 

3580 DATA 134,"Haricot vert en boite",21,92,1,.1,4.2 

3590 DATA 410,120,27,-1,-1,19,-1,-1,1.4,-1,-1,.03,.03,.04,.3,3.4,-1,.6 

3600 DATA 135,"Laitue",18,94,1.2,.2,2.9 

3610 DATA 15,300,30,13,50,40,20,.42,.65..18,.005,1,.08,. 12,.5,15,-1,.6 
3620 DATA 136,"Lentille",336,12,24,1.8,56 

3630 DATA 3,750,60,80,60,400,277,-1,7,.5,.0015,.01,.5,.2,1.8,3,-1,3.7 
3640 DATA 137,'Navet',35,88,1.1,.2,8.5 

3650 DATA 57,280,6,10,55,35,45,.25,.5,.1,.02,1.2,.12,.07,.5,20,-1,1.1 
3660 DATA 138,'Oignon',47,86,1.4,.2,10 

3670 DATA 1,180,32,16,25,35,70,.25,.5,.1,.02,.003,.1,.07,.1,15,-1, .8 
3680 DATA 139,"Poireau entier",42,88,2,.4,7.5 
3690 DATA 100,300,60,18,40,50,72,.07,1,.3,.01,.05,.12,.03,.4,20,-1,-1 
3700 DATA 140,"Pois vert",92,74,6,.4,16 

3710 DATA 4,315,26,42,36,122,60,-1,2,.2,.007,.24,.3,.25,1.1,23,-1,2.2 
3720 DATA 141,"Pois sec ou casse’,340,12i23.1.5,59 

3730 DATA 40,915,45,130,47,340,219,2.77,5.45,,6,.0017,.33,.77,.2,3.1,2,-1,5.4 
3740 DATA 142,'Pomme de terre",86,77,2,.1,19 

3750 DATA 5,SOC,15,30,50,60,30,,1,.3,.15,.003,.007,.12,.07,1.5,20,-1,.5 
3760 DATA 143,'pomme de terre frites',400,20,5,9,52 
3770 DATA -1,-1,30,-1,-1,152,-1,-1,-1,-1,-1,-1,.18,.1!,3.3,-1,-1,1.1 
3780 DATA 144,'Chips',544,3.1,6.7,37,5D 

3790 DATA -1,410,30,-1,-1,152,-1,-1,-1,-1,-1,-1,.13,. 11,3.2,5,-!,1 
3800 DATA 145,"Tomate',22,93,1,.3,4 

3310 DATA 3,280,11,10,40,20,11,.12,.6,.15,.007,.B,.09,.04,.5,38,-1,.6 

3820 DATA 146,* Piment (rouge,vert)',20,-1,1.1,-1,-1 

3830 DATA -1,-1,6,-1,-1,26,-1,-1,-1,-1,-1,.02,-1,-1,-1,160,-1,-1 

3840 DATA l47,'Persil(l cuillère a soupel',1,-1,3.7,-1,-1 

3850 DATA -1,-1,193,-1,-1,84,-1,-1,-1,-1,-1,8,11,-1,1.4,66,-1,1.8 

3860 DATA 148,'Cresson',22,-1,1.8,-1,-1 

3870 DATA -1,-1,200,-1,-1,50,-1,-1,-1,-1,-1,3, .15,-1,-1,100,-1,-1 
3880 DATA 149,"Mâche',36,-1,2.5,-1,-1 

3890 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,50,-1,1.7 
3900 DATA 150,'Radis cru',21,92.9,1.1,0.1,3.9 

3910 DATA 15,270,37,14,34,31,39,-1,0.016,1.1,14,0.009,0.06,0.03,0.3,21,-1,0.7 
392C DATA 151,'Abricot',51,86,.B,. 1,10 

3930 DATA 1,300,15,11,2,24,6,-1,.5,.12,-1,1.8,.06,.012,.7,10,-1,,8 
3940 DATA 152,"Ananas frais',51,86,.5,.2,13 
3950 DATA 2,250,25,70,30,11,6,1,.5,.07,.03,.05,.07,.05,.2,25,-1,.4 
3960 DATA 153,'Ananas en boite',96,74,0.4,0.2,23 
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3970 DATA 2,120,20,10,-1,8,-1,-1,0.7,-i,-1,0.005,0.07,0.02,0.1?,6,-1,0.3 


3900 DATA 154,"Banane",90,75,1.A,0.5,20 

3990 DATA 3,380,7,35,100,20,12,0.B,0.6,0.2,0.002,0.13,0.1,0.08,0.05,10,-1,0.6 
A000 DATA 155,'Cerise’,41,80.5,1.2,'0.5,17 

4010 DATA 3,250,10,10,3,21,9,0.03,0.4,0.13,0.002,.36,0.05,0.06,0.14,17,-1,0.3 
4020 DATA 156, "Figue" ,270,79,4.3, .1,-18 

4030 DATA 33,285,50,21,16,35,10,.35,1.5,.1,0,.01,.06,.05,.5,22,-1,1 
4040 DATA 157,"Fraise, Framboise",40,85,.7,.6,7 
4050 DATA 2,160,35,17,17,28,16,.3,.75,.08,.008,.01,.03,.05,.4,25,0,1.2 
4060 DATA 158,"Melon",31,92,.8,.2,6.5 

407Q DATA 12,260,13,15,43,13,14,.Oh, .4, .05, .002', .05,.02, .05, .2,10,-1,-1 
4080 DATA 159,"Orange, Mandarine, Famplemousse’,44,B7,.7,.2,9 
4090 DATA 2,170,35,11,4,20,10,.035,.45,.08,.0008,.06,.1,.03,.02,70,-1,.5 
4100 DATA 160,"Peche",52,86,.5,.1,12 

4110 DATA 3,230,8,10,3,22,7,.66,.4,.05,.002,.005,.03,.05,.3,6,0,.3 
4120 DATA 161,"Poire",61,83,.4,.4,14 

4130 DATA 3,130,99,7,2,10,5,.06,.4,.1,.002,.002,.05,.05,.2,5,0,-1 
4140 DATA 162,"Pomb",52,87,.3,.35,12 

4150 DATA 2,120,9,5,3,11,6,.04,.4,.1,.002,.01,.04,.02,.2,5,0,.6 
4160 DATA 163,"Prune",64,83,.8,.1,10 

4170 DATA 3,250,15,9,2,19,6,.11,.4,.15,.0017,.05,.1,.05,.3,5,0,-1 
4.80 DATA 164,"Raisin*,66,81,0.8,1,17 

4190 DATA 6,193,11,10,3,! 1,8,.07,.3,.1..002,.005,.04,.32,.2,4,-1,-1 
4200 DATA lo5,"Raisin sec",298,24,2.6,0.9,69.7 

4210 DATA 27,725,60,39,9,137,42,-1,3.3,0.2.-1,0.015,0.15,0.08,0.5,-I,-!,6.8 
4220 DATA 166,"Avocat (1/21",195,70,1.7,20,5.9 

4230 DATA 3,680,10,41,16,40,35,-1,0.7,0.2,-1,0.014,2.05,0.13,1,16,-1,1.6 

4240 DATA 167,'Amandes saches",600,-1,21,-1,17 

4250 DATA -l,-l,243 r l,-1,-1,-1,-1,3,-1,-1,-1,.15,-1,-1,-1,-1,-1 

4260 DATA 16B,"Cacahuètes".560,-1,27,-1,-1 

4270 DATA -1,-1,-î,-1,-1,-1,-1,-1,-1,-1,-1,-1,1.1,-1,-1,-1,-1,-1 

4280 DATA 169,"Moi/",630,-i,15,-1,19 

4290 DATA -1,-1,75,-1,-1,500,-1,-1,3,-l,-l,-l,-l,-!.-l,-l,-1,-1 

4300 DATA 170,"Noisettes",656,-1,14,-1,17 

*310 DATA -1,-1,200,-1,-1,300,-1,-1,3,-1,-1,-1,-1,-1,-1,-1,-1,-1 

4320 DATA 171,"Citron",25,-1,.9,-1,8.7 

4330 DATA -1,-1,13,-1,-1,10,-1,-1,-1,-1,-1,-1,.5,-1,.1,60,-1,-1 

4340 DATA 172,"Dattes sectes",284,-1,2.2,-1,75 

4350 DATA .9,-l,65i-1,-1,70,-1,-1,-1,-1,-1,-1,.08,-1,2.2,-1,-1,-1 

4360 DATA 173,"Groseilles",55,-1,1,-l,10 

4370 DATA -1,-1,28,-1,-1,30,-1,-1,-1,-1',-1,-1, .08,-1,-1,25,-1,3 

43S0 DATA 174,"Huile végétales",395,-1,0,99,0 

4390 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,0,0 

4400 DATA 175,"Margarine",752,16,.8,83,.4 

«10 DATA 106,-1,-1,-1,164,6,-1,-1,-1,-1,-1,-1,.006,-1,-1,-1,-1,0 

4420 DATA 176,"Sucre raffine blanc(do«nino=5g)*,398,0.4,0,0,99.5 

4430 DATA 0.3,0.5,20,0,0,0,0,0,0.04,-1,-1,0,0,0,0,0,0,0 

4440 DATA 177,"Miel",300,18,.3,.2,75 

4450 DATA 7,20,5,6,25,16,3,.3,.5,.2,.l,D,.0Q7,.O6,.2,3,-l,O 

4460 DATA 178,"Confiture (moyenne)',280,30,.5,.1,70 

«70 DATA 12,12,12,-1,-1,12,-1,-1,.2,-1,-1,-1,.02,.2,.02,5,-1,0 

4480 DATA 179,"Chocolat",530,2,2,30,63 

4490 DATA 19,370,100,75,151,300,50,-1,3,-1,-1,-1,.03,.15,.6,0,-1,.5 
4500 DATA 180,"Sel",0,-1,0,0,0 

4510 DATA 40000,-1,12,76,60000,-1,23,-1,.3,.6,1.3,0,0,0,0,0,0,0 
4520 DATA 181,"Gelee",260,-1,,2,-1,-1 
4530 DATA -1,-1,12,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 
4540 DATA 182."Vinaigre",-1,-1,-1,-1,-l ~ 

4550 DATA 20,90,15,16,45,20,18,-1,0.4,0.04,-1,-1,-1,-1,-1,-1,-1,-1 
4560 DATA 183,"Huile d'olive",900,-1,0,99.9,0 

457C DATA 0.1,0.1,0.5,-1,-1,-1,-1,-1,0.09,0.07,-1,-1,-1,-1,-1,-1,-1,-1 

4580 DATA 184,"Mayonnaise commerciale",408,40,-1,39.5,13 

4590 DATA -1,-1,12,-1,-1,-1,-1,-1,-1,-1,-1,0.06,-1,-1,0,0,-1,-1 

4600 DATA 185,"Mayonnaise fraîche",729,15.5,1.5,79,3 

4610 DATA 650,40,20,-1,-1,60,-1,-1,-1,-1,-1,0.063,0.04,0.05,0,0,-1,-1 

4620 DATA 186,"Bonbons(moyennes)'i381,4.5,0.8,0.1,94 

4630 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

4640 DATA 187,"Caramels",428,7,2.5,11.8,77.B 

4650 DATA -1,-1,126,-1,-1,90,-1,-1,2.3,-1,-1,0.051,0.02,0.14,0.1,-1,-1,-1 
4660 DATA 13B,"Sirops",296,24,0,0,74 

4670 DATA 65,4,45,-1,-1,16,-1,-1,4,-1,-1,0,0,0.01,0.1,0,-1,-1 
4680 DATA 189,"MoutardE verte",106,-1,6,6,7 

4690 DATA 55,260,500,-1,15,750,1200,-1,-1,-1,-1,-1,0.1,0.2,0.8,75,-1,-1 
4700 DATA 190,"Poivre",-1,-1,-1,-1,-1 

4710 DATA 7,42,120,45,60,130,100,-1,10,1,-1,-1,-1,-1,-1,-1,-1,-1 

4720 DATA 191,"Café (6Gg/9G0 ml d'eau)",4,98,.4,0,.4 

4730 DATA .3,88,3.4,8.3,.6,2.8,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

4740 DATA 192,"The (lDg/1 1 d’eau)",1,99,.1,0,0 

4750 DATA .4,17,.3,1.1,.4,1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

4760 DATA 193,"limonade",48,0,O,12,-1 

4770 DATA 14,.8,10,-1,1,1,-1,-1,.01,-1,0,0,0,0,0,0,0,0 

4780 DATA 194,"Biere",45,-1,0.5,0,4 

4790 DATA 3,46,10,5,20,20,55,0.03,0.08,0.01,-1,-1,0.009,0.02,0.8,0,0,0 

4800 DATA 195,"Vin 1D (moyenne)",65,-1,.1,-1,.5 

4310 DATA 3,80,10,15,2,20,5,.3,.5,.1,.005,-1,.005,.03,.1,-5,0,0 

4820 DATA 196,"Cidre",40,-1,-1,-1,3 

4830 DATA 6,150,5,4,20,7,5,.05,.2,-1,-1,-1,-1,-1,-1,-1,-1,0 

4840 DATA 197,"Champagne",91,-1,.2,-1,-1 

4850 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,—1,-1,-1, —1,0 

4860 DATA 198,"Bénédictine",365,-1,-1,-1,-1 

4870 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

4880 DATA 199,"Eau de vie",250,-1,-1,-1,-1 

4890 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1.0 

4900 DATA 200,"Rhum",312,-1,-i,-1,-1 

4910 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,8 


4920 DATA 201,"Whisky",301,-1,-1.-1,-1 

4930 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

4940 DATA 202,"Jus de citron frais",35,90.7,0.4,0.1,B 

4950 DATA 2,132,13,8,4,11,3,-1,0.14,0.13,0.003,0,0.04,-1,0.1,65,-1,0.9 

4960 DATA 203,"Jus d'orange frais",49,88,0.6,0.1,11.4 

4970 DATA 1,180,19,10,7,16,7,-1,0.3,0.09,-1,0.03,0.07,0.02,0.2,35,-1,0.1 

4980 DATA 204,"Jus d’orange conserve",51,SB,0.5,0.1,11.8 

4990 DATA -1,-1,10,-1,-1,18,-1,-1,0.3,-1,-1,-1,0.07,0.02,0.2,28,-1,0.05 

5000 DATA 205,"Jus de pomme frais",53,86,G.l,0,13 

5010 DATA 2,100,6,-1,-1,10,-1,-1,0.5,0.35,-1,-1,0.02,0.03,0.5,3,-1,-1 

5020 DATA 206,"Jus de raisin frais",74,82,0.4,0,18.1 

5030 DATA 1,114,10,7,2,10,9,-1,0.3,0.02,-1,-1,0.04,0.05,0.2,3,-1,-1 

5040 DATA 207,"Porto",160,-1,0.3,-1,14 

5050 DATA 4,75,5,10,8,11,-1,-1,0.3,0.09,-1,-1,-1,-1,-1,-1,-1,-1 
5060 DATA 208,"Sodas",44,90,0,0,11 

5070 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0 

5080 DATA 209,“Bouillon de boeuf",280,3.2,20.6,19.2,6.4 

5090 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

5100 DATA 210,"Bouillon de poule",295,2.7,20.1,18.9,11.1 

5110 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

5120 DATA 211,"Bouillon cube",101,4,25,-1,-1 

5130 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

5140 DATA 212,"Bouillon de boeuf au vermicelle",341,5.9,14,5.5,58.7 

5150 DATA -1,-1,-1,-î,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1.-1,-1 

5160 DATA 213,“Bouillon de poule au vermicelle",336,6.3,15.4,4.7,58 

5170 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

5180 DATA 214,‘Potage poiraux & pommes de terre‘,348,6.3ill.B,8.2,56.7 

5190 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 

5200 DATA 215,"Potage aux legumes",334,6,11.5,6.8,56.5 

5210 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1?-1,-1,-1,-1,-1,-1,-! 

5220 DATA 216,‘Potages aux champignons",357,6,15.4,10.2,50.8 
5230 DATA -1,-1,-1,-i,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 
5240 DATA 217,'Potages aux tomiates’,346,4.1,8.6,6.2,63.8 
5250 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 
5260 DATA 218,"Soupe a 1"signas",339,4.1,10.8,9.3,53 
5270 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,■-1,-1 
5280 DA’A 219,"Soupe aux pois au lard fume",322,7.2,14.6,7.3,49.4 
5290 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1. -li-l 
5300 DATA 220,"Soupe ae poissons",318,6.5,17.9,3.2,54.2 
5310 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 
5320 PR1NT STRINGt<80,255)1:RETDRN 

5330 LCCATE 18,25:PR!NT CHRti24!i"Appugez sur une touche pour continuer"iCHR*(24) 

;iUHILE ÎNKEY*»’":WENDîRETUfW 

5340 INFUT'Entre: votre choix ! ", choix :RETURN 

5350 CLS:PRINT"No®s‘;TAE!ll)i‘Acticns";TAB(37i:"bes/j‘îTAB(44)î"Effets carences' 
iTAB!72)i"Dang.abus"i'SOSUB 5320 :RETURN 
5360 CISiPRiNT nom* 

5370 INPUT'Poids en grammes <-l :Af fichage caractéristiques, O.-Rien) : ", poids 
5380 poids=poids/100:RETURN 

5390 READ nume'o,nomtîFOR j=l TO 23.READ caract'jXNEXT jîRE'TJRN 

5400 nitem=nitemil:item(nitem)=nuiiiero:poid5(nitem)=poids 

5410 IF numeroMSO THEN flagsel=l 

5420 FOR j=l TO 23 

5430 IF caractljXO THEN 5450 

5440 IF poids>0 THEN total<j >=total<j)+caract(j)*poids 
5450 NEXT j:RETURN 

5460 IF item(ndel)<0 THEN total(-l*itemtndel)>=total(-1*1 ternir.del>>-poidstndcl) 

:RETURN 

5470 RESTORE 92O:F0R i=l TO itemlndelXGOSUB 53?0:NEXT i:F0R j=l TO 23 

5480 !F caractfjXO THEN 5500 

5490 total(j «total(jl-caract(j1»poidslndel ' 

5500 NEXT j:RETURN 

5510 PRINT USINE"##"}ii ".PRINT USINÉ". ####.#_ ";poids(il*100; 

5520 PRINT LETTAInom#,10)jTAB(31)ï 

5530 IF caracti2»0 THEN PRINT USINÉ"###.#’ipoids(i)*caract(2)i 

5540 1F caract!3X0 THEN PRINT TAEC37>;îPRINT USING"###.#"ipoids(i>»caract<3l; 

5550 IF caract(4)>0 THEN PRINT TAB(43)iSPRINT USINÉ"###.#";poidsii!*carâct(4); 

5560 1F caract(5)'0 THEN PRINT TAB(49X,:PRINT USINÉ 1 ###.#"iPDids(i)»caract<5)i 

5570 1F caractüXO THEN PRINT TABI55MîPRINT USINÉ"####.#";poids!i)*caract(l)i 

5580 PRINT TAB(62);:IF caracti17)>0 THEN PRINT"A "i 

5590 1F caract(18)>0 THEN PRINT'El ’i 

5600 IF caractI19)>0 THEN PRINT"B2 "i 

5610 IF caract(20)>0 THEN PRINT’PF "; 

5620 IF caract(21»0 THEN PRINT’C "i 
5630 IF caract(22)>0 THEN PR1NT"D "i 
5640 PRINTIRETURN 

5650 CLSIGOSUB 532C:PRINT TAB(12);"COMPOSITION MOYENNE DE "inoitf!" / 100g :"i 
fSOSUB 5320 

5660 IF caractllXO THEN PRINT"-’i aSE PRINT USÎN6"*### calories" S car actfl) 

5670 IF caract(2)<0 THEN PRINTiGOTO 5700 — 

5680 PRINT USIN6"## g d’eau pour lQCg d’aliment"icaract(2>; 

5690 PRINT US1NG" (poids sec : ## g )"il0D-caract(2) 

5700 FOR j=3 TO 5:FRINÎ TAB(30#(j-3)l; 

5710 IF caractljXO THEN PRINT" -.-"iaSE °RINT USINÉ" *#,#";caract(j)i 
5720 PRINT" g de "inomSlj JXNEXT j 

5730 PRINTîGOSUÎ 5320 : PRINT'ELEMENTS MINERAUX :":F0R j=6 TO 16 

5740 IF caractljXO THEN PRINT" -.-‘îELSE PRINT USINÉ"#####.####"icaract(jl 

5750 PRINT’ mg de "inom*(j);:IF j/2c>INT!j/2!THEN PRINT TAB(40)îELSE PRINT 
5760 NEXT jiBOSUÎ 5320:PRINT"VITAH1NES : *:F0R j=17 TO 22 

5770 IF caractljXO THEN PRIN T " -,- "iaSE PRINT USIN6 , #####.####’icaract(j) 

5780 PRINT" mg de "inom$(j)j 

5790 IF j/201NT(j/2)THEN PRINT TABI40)îELSE PRÎN7 

5800 NEXT j:S03UB 5320UF caract!23i(0 THEN PRINT" -.-"iaSE PRINT USINÉ" 
##.#*icaractl23)j 

5810 PRINT" mg de cellulose"iGQSUÏ 532Q:G0SUB 5330:RETURN 
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5820 CLS:IF nitem=0 T® LOCATE 15,12îPRINT'Veui1lez tout d’abord composer votre menu !':G0SUB 533O:G0T0 130 
5830 GOîUB 6280: CLS 

5840 PRINT'Nous allons maintenant vérifier que les aliments que vous ave: choisis sont'iPRINT 1 équilibrés et vous apportent tou 
s les nutriments dont vous ave: besoin."iFRINT CHR»(24) 

5850 PR INT'ATTENTION: Ce programme très complet vous permettra d’equilibrer au mieux votre régime , NAIS IL NE RENPLACE PAS UN NEDEC 
IN et , si vous estime: souffrir d’une carence alimentaire serieuse , VOUS devez bien sur aller le consulter. " 

5860 PR1NT CHR4(24);'De plus , il ne peut vérifier que votre régime est complet que si vous avez indique tous vos aliments d’un 
e journée. 1 

5870 ’etude et affichage composition régime 

5880 PRINTîGOSUB 5320:PRINT TABt 12) !'ETUDE DE LA COMPOSITION GLOBALE DE VOTRE MENU DU JOUR'iGOSUB 5320:PRINT:PRINT 
5890 PRINT TAB110)iUSIN6'l#l#.# calories (Vos besoins sont de ###* calories par jour)';total(l),bescal:PRINT'reparties en:*tPRINT 
TAMlOÜUSlNG'tt#*.* 9 de protides -PROTEINES- (soit environ tttt.t calories)'îtotal(3>,total<3>*4 

5700 callip=totaI(41*9:PRINT TAÏ(10)jUSING*KHMt.# g de lipides -GRAISSES- (soit environ #»##.# calories»'itotal(4),cal1ipîPRINT 
ÎABdOljUSlNS'Ht##.* g de glucides -SUCRES- (soit environ #!♦#.* calories)"!total(5),total(51*4 
5910 PRINTîGOSUB 5330:CLS:GOSUB 5320:PRINT'Composes : Apports : Besoins : Remarques : ':G0SUB 5320 

5920 FOR i=6 TO 231PR1NT ncur.*(i);TAB(20)itotal(i)iTA»(40>;besoins(i); 

5930 GOSUÎ 5990:NDT HG0SUB 5320.-GOSUB 5330:CLS 

5940 PRINT tPRINT:PRINT: IF total(3)<70 THEN PRINT’Vous ne consommez pas assez de proteines . Le minimun recommande est de 70 g/j.';:P 
RINT'Revoye: votre régime en conséquence ( plus de viandes , poissons , etc... ).’:PRINT 
5950 plip=INT<1000*cal1ip/total(1)1/10 

5960 IF plip>35 THEN PRINT'** ATTENTION ** : Les lipides vous apportent ’iplipî'Z de votre ration’:PRINT'calorique : Il est 
très important pour votre santé de réduire ce’:PRINT" pourcentage en-DESOUS de 35 Z .'-‘PRINT 

5970 1F flagsel=0 T®) PRINT'Vouj n’avez pas indique de sel dans vos apports . Si vous salez vos aliments ,':PRINT'vous devez indi 
quer le sel utilise dans vos apports alimentaires.':PR1NT 

sogS ^ riTucw ddtut TiPisn,.«ni.» Dc-næ.i 6150 Vie sédentaire ou Iegere activitc 

5990 IF total(i)v-besoins(iITHEN PRINT TAB(50)i'0k':RETURN A'AT PRINT’PPINT' -NFA'lTS'* 

™NJ.™‘50);'Acceptable':RETURN 6 [ 70 „VtM{ 27’" mois’a 1 an . 

Sln ne^iIÎS ™ • “"Rue .RETURN 6183 FRINT T aB< 27);*1 an a 2 ans . 

6020 CLS:CLEAR:END , .gr, p RI u T , l 

6030 CLSïPRINT TAB(20)!*TABLEAU DES BESOINS CALORIQUES':GOSUÎ 5320 ppint TAR pti'-a 1 4 . 

6040 PRINT TAB(7);*Categopie";TAB(27)5"Activité ou âge';TAB<67)Besoins* t^in paiv- à .. 

6050 G0SUB 5320:PRINT* HOMMES (vie sédentaire)'; Z™ Z\^r TAÏr7 ’mh a Vans. 

6060 PRINT' Travail Physique faible. 2400 a 2800' pour •'‘ 5 '^'^ 

S ran < r^!’.'î raval ; p ^ 5lque IM f n . 3200 a 380CH 6240 PR ' INrr TABI27);' de 15 a 33 ans ... 

™ PhaS i qU ? ‘ nt f" 5e . 4000 a 5500 430 p RIN T TAB(27ii'Fi!le5 de 12 a 13 ans ... 

“S 2"™ «« «"■ -nnn 6260 PRINT T AB ( 27 ) î * de 14 a 18 ans ... 

M?n pptktt T 4 lo 7 f!JT Pha51 ? Ue K fâlble . ‘ OQO a „ nni 6270 GÛ3UB 5330:RETURN 

pn I ,S. T ^^c’, TraVai i P ^! IqUe ® Qiien . 3000 a 3500 6280 aStlP connu=l THEN 6310 

î}2 PBfES leijceiintes) , 6290 PRINT: INPUT'Entrez vas besoins caloriques p, 

î *n mÎÎÏ. nwc^.f !" î lr ! “ leqpre actlv ‘te. 2800 a 3200 6300 IF beacal=-l T® 60SUB 6030:CLS-'GOTO 6290 

,6140 PRINT' FEMMES (allaitantes)'! t-iin iBrnimi 


nævuxtr 


6150 PRIT' Vie sédentaire au Iegere activité . 30QC 

6160 PRINT:PRINT' ENFANTS'! 

6170 PRINT TAE:27■;'6 mais a 1 an . 

6180 PRINT TAB(27 >;”1 an a 2 ans . 

6190 PRINT T A3 < 27i; * 2 a 4 ans ... 

6200 PRINT TAB(27)!'4 a 6 ans .. 

6210 PRINT TAS(27)!'6 a 10 ans ... 

6220 PRINT TAEI27)î‘10 a 12 ans . 

6233 PRIT TAB'OTX'Garccns de 12 a 15 an; . 

6240 PRINT TAB(27)!" de 15 a 20 ans . 

6250 PRINT TAB(27 3 ; * Fi11es de 12 a 13 ans . 

6260 PRINT TABI27);’ de 14 a 18 ans . 

6270 ffiSUB 5330: RETURN 
6280 as: IP ccmnu=l T® 6310 

6290 PRINT:INPUT’Entrez vas besoins caloriques par jour (-1 
6300 IF bescal=-l T® 60SUB 6030: CLS-’GOTO 6290 
6310 connu=l:RETURN 


si inconnu)’ibescal 


E.S.Pi.T. Software 

55, rue Tondu 33000 Bordeaux - Tél 56 96.35.23 Poste 31 

Importateur - Distributeur des programmes logiciels de la Sté PRIDE-UTILITES 


SYSTEME x 




résidant qui apporte plus de 30 commandes supplémentaires à 
votre AMSTRAD. 

SPIRIT 1125 F CASSETTE 1 

SPIRIT est un outil pour transférer les vrais programmes sans en¬ 
tête de cassette sur disquette. Il est conçu pour être utilisé avec 
TRANSMAT. Pour utiliser SPIRIT, il faut avoir une certaine connais¬ 
sance du code machine Z 80 et un utilitaire désassembleur. Com¬ 
pris avec SPIRIT, il y a tes programmes d'interception de saut de 
bloc, LOADER 1 et LOADER 2 pour aider à charger les program¬ 
mes a partir de la disquette. 


TRANSMAT 

Permet te transfert teàte sur disques de tous logiciels sur bande. Pour 
un système à disques AMSTRAD 001-1. 

• Modes de fonctionnement automatiques ou non automatiques • Lee 
(eut global d'en-tête de disque • Adjonction éventuelle de réadressage • 
Programmes faciles d'effacement ou de changement de nom. 

BOURSE ^INFORMATIONS TRANSMAT 

Informations complémentaires pour passer des programmes difficiles. 

Mise à jour régulière des 4 premières éditions. f ^ 

TRANSMAT maintenant en ROM. *—' J 


ODO-JOB ■— 

Un utilitaire complet sur disque contenant tous les programmes que 
vous attendiez : • Un éditeur complet • Récupérer les programmes eff* 
cés • Cacher des programmes du menu • Un éditeur de secteur com¬ 
plet pour examiner et/ou modifier le contenu des fichiers en HEX ou en 
ASCII • Faire un plan de votre disque et localiser tes fichiers sur 1e dis 
que • Empêcher l'effacement involontaire des programmes • Un duplr 
cateur de disque intelligent «Formater deux fois plus vite sur l'un ou 
rautre drive «Transférer les programmes cassetteJdisquette 
• Augmenter la vitesse de votre drive jusqu'à 20% • Charger et lister les 
programmes en BASIC. 


— 106 frJ 

SYCLONE 7 1CASSETTE DISQ UETTE] 

Un ensemble RSX bande à bande qui apporte de 
nouveies commandes ama que de NOMBREUSES 
POSSIBILITES pour votre CPC 464. 

• Sauvegarder vos précieux logiciels pour un charge¬ 
ment avec une économie de temps de 75% • Choix 
de sept vitesses de sauvegarde, 1 000 à 4 000 bauds 

• Pas besoin de SYCLDNE pour le rechargement è 
grande vitesse • Lecteur global tf ervtête • Cwnman¬ 
des disponibles à partir du BASIC • Chargement et 
impression de programmes BASIC sauvegardés • 
Impression de vos bandes WEIC0ME. 


POUR VOTRE AMSTRAD 464 - 664 6128 


| PRINTERPtStTF ÏWTfZ" 

PAC 1 | CASSETTE DISQUETTE 

Une extension de système résidante qui ajoute SIX 
nouvelles commandes à votre CPC 464/664. Un 
ensemble à deux programmes conçu pour l'impri¬ 
mante AMSTRAD DMP1 IAMDUMP) et pour les 
imprimantes compatibles ESPSON (EPDUMP). 

• VIDAGE ECRAN dans tous tes modes. Deux for 
mats avec EPDUMP • Vidage texte dans tous les 
modes «Trois nouveaux types de caractères pour le 
DMP1 • Préciser les encres de fond (la version 664 
n’esl pas disponible sur cassette). 



BON DE COMMANDE 


C0MEVT CflMAIIEX : Cocher le(s) article(s) désiré(i) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour 
achats inférieurs à 500 F) Franco pour achats supérieur à 500 F 

SIGNATURE 

NOM_ 

i 

i ADRESSE_ 

' 

Mode de paiment : □ chèque/□ mandat/D contre-remboursement (prévoir 20 F de frais) - envoyer le tout 
à . ESAT SOFTWARE, 55. rue du Tondu, 33000 Bordeaux 


[130 F 186 F 
TOMCAT [ç^sPQL5!§9y5Ii 

Le nec plus ultra de la duplication de sauvegarde 
bande à bande, grâce à ce programme simple, qui se 
charge pratiquement de tout même sans entête, et 
normalement tfun seul coup._ 

-ÎÏ3ÔF Î66 F ~ 

ZEDIS r&sSFTTE DISQUETTE 

Un disassembleur et programme d'édition de code à 
la lois global et convivial Indispensable pour le 
néophyte tout comme pour Expert. 


TOMCAT 

TRANSMAT 

SCRIPTOR 

ZEDIS _ 

RSX SYCLONE 2 
SYSTEME X 
PRINTER PAC 1 
ODD JOB 
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1 REM PENDU Par Gérard CASANOVA 
10 BORDER 18 
30 CLS 

50 INK 0,18:INK 1,6:INK 3,0 
70 INK 2,24 

80 REM définition des tetes du pendu 

85 REM définition de la corde et entretoise 

90 SYMBOL AFTER 240 

110 SYMBOL 241,128,64,32,16,8,4,2,1 

130 SYMBOL 242,1,1,1,1,1,1,1,1 

150 SYMBOL 243,63,63,255,255,195,195,255,255 

17D SYMBOL 244,252,252,255,255,195,195,255,255 

190 SYMBOL 245,207,207,240,240,255',255,63,63 

210 SYMBOL 246,243,243,15,15,255,255,252,252 

230 SYMBOL 247,240,240,207,207,255,255,63,63 

250 SYMBOL 248,15,15,243,243,255,255,252,252 

270 C1$=CHR$(247):C2$=CHR*(248) 

290 C3t=Cl*+C2* 


330 B1*=CHR$(245):B2*=CHR*(246> 

350 A3#=A1$+A2$:B3t=B1$+B2$ 

370 G#=CHR$(241>:E*=CHR$(242) 

380 REM définition des fenetres 
390 WINDOW #1,1,24,1,25 
410 PAPER #1,3 
430 HINDOU #2,25,40,1,25 
450 PAPER #2,1 

460 REM D$=variable de comparaison des lettres déjà utilisées 
470 DIM D$(25):D*(0)=CHR$(163) 

490 CLS #1 
510 CLS #2 

520 REM REGLE DU JEU******************** 

525 PEN #1,2 

530 FOR ZI = 5 TO 18:L0CATE #1,Z1,1 
550 PRINT #1,”*’ 

570 NEXT ZI 
590 LOCATE #1,5,2 


310 A1$=CHR*(243) :A2$=CHR$(244) 

610 PRINT ftl,‘* a ;:PEN #1,1 SPRINT #1,'REGLE DU JEU*; :PEN #1,2:PRINT #1,‘*' 

630 PRINT #1,TAB(5)STRING#(14,'*’) 

650 LOCATE #1,4,6:PR1NT #1,'J’AI CHOISI UN NOM':LOCATE #1,3,8:PRINT 41,"TU DOIS LE RETROUVER" 

670 LOCATE #1,4,10:PRINT #1,'LETTRE PAR LETTRE*:LOCATE #1,2,14:PRINT #1,'A CHAQUE LETTRE FAUSSE' 

690 LOCATE #1,3,16:PRINT #1,'UN ELEMENT DU PENDU':LOCATE #1,7,18:PRINT #1,'S’AFFICHERA' 

710 LOCATE #1,4,22:PRINT #1,'Taper C'UPEN #1,1:PRINT #1,'ENTER’i:PEN #1,2:PRINT #!,’> pour':LOCATE *1,9,24:PRINT #1,'la suite' 

730 Kt=INKEY$:IF K* O CHR*<13) THEN GOTO 730 

750 CLS #1,:LOCATE #1,6,7:PRINT #1REFLECHIS BIEN':LOCATE #1,11,12:PRINT #1,'ET':L0CATE #1,6,17:PRINT #1,'BONNE CHANCE' 

770 LOCATE #1,4,22:PRINT #1,'TAPER C;:PEN #l,l:PRINT #1,'ENTER*PPEN #1,2:PRINT #1,*> POUR* 

790 LOCATE #1,9,24:PRINT #1,'COMMENCER' 

810 K$=INKEYf:IF K$ O CHRï(13) THEN GOTO 810 
815 REM DESSIN DE LA POTENCE************ 

820 CLS #2 910 FOR J = 4 TO 19 1010 FOR H=4 TO 6 1110 FOR F = 4 TO 5 

830 FOR 1=2 TO 13 930 PEN #2,3 1030 PEN #2,3 1130 PEN #2,3 

850 PEN #'',3 ’ 950 LOCATE #2,13, J 1050 LOCATE #2,V,H 1150 LOCATE #2,5,F 

870 LOCATE #2,1,3 970 PRINT #2,CHR$(143):NEXT J 1070 PRINT #2,Gt 1170 PRINT #2,Et:NEXT F 

890 PRINT #2,CHR$(143):NEXT I 990 LET V=10 1090 V=V+1:NEXT H 1190 CLS #1 

1200 REM (INVARIABLE DE POSITION LETTRE UTILISEE P=VARIABLE COPMTEUR SOUS PROGRAMME AFFICHAGE PENDU F=VARIABLE INDICE DE D********* 

1210 Ql=l:P=0:F=1 
1230 RANDOMIZE TIME 
1250 H=INT(RND(1)*40)+1 
1270 FOR 1=1 TO H 
1290 READ C,M*:NEXT I 
1310 M = LEN(M$) 

1330 IF C>0 AND C<11 THEN LOCATE #1,5,2:PRINT #1,'N0M D’ANIMAL':GOTO 1410 
1350 1F 010 AND C <21 THEN LOCATE #1,5,2:PRINT #1,'N0M DE FLEURS,FRUITS':GOTO 1410 
1370 IF 020 AND C<31 THEN LOCATE #1,5,2:PRINT #1,'N0M DE METIERS':GOTO 1410 
1390 LOCATE #1,5,2:PRINT #1,'N0M DE PAYS' 

1410 T=0 

1415 REM T=VARIABLE COMPTEUR LETTRE JUSTE*************************************** 

1430 FOR I =1 TO M 
1450 LOCATE #1,6+1,7 
1470 PRINT #1,CHR$(45):NEXT I 
1490 RESTORE 


Pendu 


Très simple d’emploi, ce jeu du pendu s’affichera dans la Si l’ordinateur détecte une à quatorze essais ; au quinzième, 
vous permettra, vous ou vos fenêtre de droite. bonne réponse, il affiche c’est la mort sûre ! L’Amstrad 

enfants, de passer de bons L’ordinateur choisit aléatoire- l’emplacement (ou les emplace- vous donne alors la solution et 
moments. L’ordinateur choisit ment le mot à retrouver et vous ments) de cette lettre dans le mot vous propose de rejouer, 
un nom et vous devez, le plus indique s’il s’agit d’un nom à trouver. En bas, il affiche les 

rapidement possible, le retrouver d’animal, de végétal ou de pays, lettres déjà utilisées et vous pré- Gérard Casanova 

lettre par lettre. A chaque ten- Vous pouvez entrer vos répon- vient lorsque vous avez déjà pro- 
tative infructueuse, un morceau ses en minuscules ou majuscules, posé une lettre. Vous avez droit 
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umm 


mms 


1510 LOCATE #1,1,20:PRINT #1,'lettres utilisées" 

1530 FOR 6=1 T0 24:L0CATE #1,G,21 :PRINT #1, CHRK154) :N£XT G 
1550 FOR G=1 T0 2A:LOCATE #1,G,23:PRINT #1,CHR*(154)îNEXT G 
1570 LOCATE #1,5,12 
1590 INPUT #1,'LETTRE PROPOSEE';R$ 

1610 Rt = UPPERKRt) 

1630 LOCATE #1,Q1,22:PEN #1,1:PRINT #1,R$:Q1=Q1+1:PEN #1,2 
1650 D$(F)=R$:60T0 1650 

1660 REM X=VAR COMPTEUR PASSAGE V=VAR COMPTEUR MAUVAISE LETTRE**************** 

1670 F=F+1:X=1:V=0 

1690 IF R$OMID$(M*,X,l) THEN LET V=V+1:L0CATE #1,22,12:PRINT #1,' »:G0T0 1790 
1710 T=T+1 

1730 LOCATE #l,i+X,7 

1750 PRINT #1,R$: SOUND 1,4>0,20,7 : SOUND 1,47,20,7:S0UND 1, AO, 20,7 
1770 IF T=M THEN FOR V2=l TO 1500:NEXT:G0T0 2190 

1790 IF V=M THEN P=P+1:S0UND 1,568,30,5:SOUND 2,568,30,6:S0UND 1,568,30,7:SOUND 1,956,50,7:0N P 60T0 2290,2350,2450,2550,2650,2750,2 
850,2930,3010 

1810 IF X=M THEN LOCATE #1,22,12:PRINT #1,' ':GOTO 1570 
1820 REM COMPARAISON LETTRE UTILISEE***» 

1830 X=X+l:G0T0 1690 
1850 61=0 

1860 IF F=G1 THEN 60TO 1670 
1870 IF D*(F)=D$(G1) THEN GOTO 2150 
1880 Gl=Gl+l:GOTO 1860 

2150 LOCATE #1,4,15SPRINT #1,'LETTRE DEJA UTILISEE' 

2170 FOR RI = 1 TO IOOOîNEXT RIsLOCATE #1,4,15:PRINT #1,' 'îLOCATE #1,22,12:PRINT #1,' *:GOTO 1570 

2180 REM MOT TROUVE********************* 

2190 CLS #1,îLOCATE #1,6,11 SPRINT *1,'C’EST GAGNE*SENT 1,100,-2,2:S0UND 1,284,200,15,0,1 

2210 LOCATE #1,2,22:PRINT #1,'TAPER <'î:PEN #1,lsPRINT #1,'ENTER';:PEN #1,2:PRINT #1,*> POUR UNE' 

2230 LOCATE #1,2,24SPRINT #1,'AUTRE PARTIE (sinon';:PEN #l,l:PRINT #1,' F',"PEN #1,2:PRINT #1,')' 

2250 K*=INKEY*:1F K*=" THEN 60T0 2250 


2270 IF K$=CHRI(13) THEN GOTO 820 ELSE 3350 
2280 REM AFFICHAGE DU PENDU************* 

2290 PEN#2,2sLOCATE #2,5,6 

2310 PRINT #2,A3$sLOCATE #2,5,7:PRINT #2,B3* 

2330 GOTO 1570 
2350 FOR L = 8 TO 12 
2370 PEN #2,3 
2390 LOCATE #2,4,L 

2410 PRINT #2 ,CHR*(1 43 );CHR*( 143 );CHR*(1 43 )ïCHR* ( 1 43) :NEXT L 

2430 GOTO 1570 

2450 FOR Ml =8 TO 11 

2470 PEN #2,2 

2490 LOCATE #2,3,Ml 

2510 PRINT #2,CHR$(143):NEXT Ml 

2530 GOTO 1570 

2550 FOR N = 8 TO 11 

2570 PEN #2,2 

2590 LOCATE #2,8,N 

2610 PRINT #2,CHR*(143):NEXT N 

2630 GOTO 1570 


2650 FOR W = 13 TO 17 

2670 PEN #2,3 

2690 LOCATE #2,4,W 

2710 PRINT #2,CHRK143)sNEXT U 

2730 GOTO 1570 

2750 FOR Q = 13 TO 17 

2770 PEN #2,3 

2790 LOCATE #2,7,Q 

2810 PRINT #2,CHR*(143)sNEXT Q 

2830 GOTO 1570 

2850 PEN #2,2 

2870 LOCATE #2,3,18 

2890 PRINT #2,CHR$(214);CHRÎ(143) 

2910 GOTO 1570 

2930 PEN #2,2 

2950 LOCATE #2,7,18 

2970 PRINT #2,CHR*(143);CHR*(215) 

2990 GOTO 1570 

3000 REM DEPLACEMENT DU PENDU*********** 

3010 ENV 1,100,1,3:ENT 1,100,5,3:S0UND 1,284,300,1,1,1 


3020 REM initialisation pour déplacement pendu********************************** 

3025 X=5:Xl=6:X2=7:X3=7:X4=8:X5=12:X6=8:X7=ll:X8=13:X9=17:X10=18:Xll=17 
3030 FOR U = 1 TO 6 
3040 CALL &BD19 

3050 PEN #2,2:LOCATE #2,3,XlOsPRINT #2,CHR$(214);CHR$(143)îLOCATE #2,7,XlOsPRINT I2.CHR*1143);CHRÎ(215) 

3052 LOCATE #2,3,XI1 :PRINT #2,' 'îLOCATE #2,8,XI1îPRINT #2," ’ 

3054 FOR F = X8 TO X9:PEN #2,3:L0CATE #2,4,P:PRINT #2,CHR$(143)îLOCATE #2,7,P:PRINT #2,CHR$(143)sNEXT P 
3056 FOR M = X6 TO X7:PEN #2,2:L0CATE #2,3,M:PRINT #2,CHRK143 )îLOCATE #2,8,M:PRINT #2,CHRII143)îNEXT M 
3058 FOR L=X4 TO XSiPEN #2,3:L0CATE #2,4,L:PRINT #2,CHR*<143);CHR$<143)iCHR$(143);CHR*(143>:NEXT L 
3060 LOCATE #2,7,X3îPRINT #2,' ’ 

3062 LOCATE #2,3,X3SPRINT #2,' ' 

3070 PEN #2,0îLOCATE #2,5,X1îPRINT *2,A3*:L0CATE #2,5,X2:PRINT #2,C3$ 

3075 LOCATE #2,5,XîPRINT #2,' ' 

3080 PEN #2,3:L0CATE #2,5,XîPRINT #2,El 

3230 X=X+1:X1=X1+1 :X2=X2+1:X3=X3+l:X4=X4+l:X5=X5+l:X6=X6+l:X7=X7+l:X8=X8+l:X9=X9+lsX10=X10+1:X11=X11+1 
3250 NEXT U 

3270 DATA 1,HYENE,2,ORNITHORYNQUE,3,DROMADAIRE,4,YACK,5,TATOU,6,STERNE,7,MACAREUX,B,BUSE,9,PYTHON, 10,MYGALE,11,ANTHURIUM 

3290 DATA 12,GERBERA, 13,BLEUET, 14,COING, 15,GOYAVE,16,PAPAYE,17,KIWI,18,CINERAIRE,19,EDELWEISS,20,MARGUERITE 

3310 DATA 21,GEMMEUR,22,OENOLOGUE,23,LUTHIER,24,APICULTEUR,25,SERICICULTEUR,26,STAFFEUR,27,VULCANOLOGUE,28,LAPIDAIRE,29,NUMISMATE,30 

.TAXIDERMISTE 

3330 DATA 31,HONDURAS,32,PARAGUAY,33,SURINAM,34,MOZAMBIQUE,35,LIBERIA,36,PANAMA,37,BIRMANIE,38,ECOSSE,39,LUXEMBOURG,40,ALBANIE 
3350 CLS #1,îLOCATE #1,8,12SPR1NT #1,' TERMINE!! LA REPONSE ETAIT: 


3351 LOCATE #1,8,19:PRINT#1,' 
3450 1F INKEY*=" THEN 3450 
3550 GOTO 2210 


*;M$ 
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I 


cornue 


WÜŒ tLt E 


Numéro 8 


< 

< 



1 '- NUMERO 8- FRANÇOIS NORD 260 IF LEFT$(Ni,3)='G64* OR LEFT*(N*,3)= , 07r THEN GOTO 2000 

5 505UB 5000 270 IF LEFT$(Ni,3)=“073' OR LEFTi(N$,3)='074' THEN GOTO 2000 

10 CLSîCLEAR îINK 0,13sINK 1,0:INH 2,3:INK 3,26:MODE 2sB0RDER 4 280 IF LEFT*(N*,3)='076" OR LEFTi(Ni,3)='08r THEN GOTO 2000 

15 LOCATE 13,7:INPUT ‘Le numéro a 7 chiffres de votre ' 290 IF LEFTt(Nt,3)>='090' AND LEFT$(N*,3)<=*095* THEN GOTO 2000 

/torrespondant ■{Ni 300 if LEFT$(N$,3)='098“ OR LEFTi(N$,3)='099“ THEN GOTO 2000 

20 IF LEFTî(Ni l 3)>="001" AND LEFTi(Ni,3K='020' THEN GOTO 1000 310 1F LEFTi(N$,3»='410' AND LEFT»<N$,3)<="419‘ THEN GOTO 2000 

30 IF LEFT$(N$,3)=’022‘ OR LEFTî(N$,3)=■023’ THEN GOTO 1000 320 IF LEFT$<Nt,3)='442* OR LEFT$(Ni,3)='443' THEN GOTO 2000 

40 IF LEFT$(N$,3)>=*025" AND LEFTIiNï,3)<= , 029* THEN GOTO 1000 330 IF LEFT$<N»,3)="450’ OR LEFT$(N$,3)=”451 * THEN GOTO 2000 

50 IF LEFT*(N*,3)>="046" AND LEFTi(Ni,3)<= , 049‘ THEN GOTO 1000 340 IF LEFT*(N»,3)>=*460” AND LEFT*(N*,3)<="462* THEN GOTO 2000 

60 IF LEFTï<Nt,3)=*06D* OR LEFTtlNt,3)=*G63“ THEN GOTO 1000 350 IF LEFT*(N»,3)>=*464* AND LEFT$IN$,3)<='479' THEN GOTO 2000 

70 IF LEFT$(N$i3)> = *065* AND LEFTt(N$,3><=”070* THEN GOTO 1000 360 IF LEFTi(N$,3>='453* OR LEFT$(Ni,3>=’489‘ THEN GOTO 2000 

80 IF LEFT $(Ni,3)=* 072* OR LEFT$(Ni,3)='075" THEN GOTO 1000 370 IF LEFT*(N4,3)>=*91Q* AND LEFT*(N*, 3)<=*919” THEN GOTO 2000 

90 IF LEFT$(Nt,3)>='077‘ AND LEFT*(N*,3)<=*080* THEN GOTO 1000 380 IF LEFT*(Ni,3)>='935' AND LEFTî(Ni,3K='937' THEN GOTO 2000 

100 IF LEFT*(N*,3)>=*082* AND LEFT*<N*,3)<=*Q89* THEN GOTO 1000 390 IF LEFT*(NS,3)="946* OR LEFT*(NS,3)=*947* THEN GOTO 2000 

110 IF LEFT*(Nii3)>=*400" AND LEFT* < Ni, 3 K=* 409' THEN GOTO 1000 400 IF LEFT*(NS,3)>=*950* AND LEFT*(NS,3)<=*966* THEN GOTO 2000 

120 IF LEFT*(N*,3)>=*445* AND LEFT*(N*i3)<=*449 n THEN GOTO 1000 410 1F LEFT*(N4,3)>=*968* AND LEFT*(Mt,3)<='995° THEN GOTO 2Q00 

130 IF LEFT*(NS,31>=*454" AND LEFT*(N*,35<=”459* THEN GOTO 1000 420 IF LEFT*(NS,3)=”997* OR LEFTi(N$,3)='998" OR LEFT$(Nt,3V 

140 IF LEFT*(NS,3) =”480’ OR LEFT*(N*,3)='488“ THEN GOTO 1000 ^ 902' THEN,GOTO 2000 

150 IF LEFT*(N4,3)>=”490” AND LEFT*(M*,3)<=*499” THEN GOTO 1000 430 IF LEFT*(N*,3)>=*200* AND LEFT*(N*,3)<="299* THEN GOTO 3000 

160 IF LEFT*(N*,3)=*900* OR LEFT*(N*,3)= , 9G1* THEN GOTO 1000 440 IF LEFT*(N*,3)>=*300* AND LEFT*(N*,3X=*399* THEN GOTO 3000 

170 IF LEFT*(N*,3) >=*903" AND LEFT*(M*-, 3)<=*909 1 THEN GOTO 1000 450 IF LEFT*(N*,3)>=*500“ AND LEFT*(N*,3)<="599* THEN GOTO 3000 

180 IF LEFT*(N*,3): =*920" AND LEFT*(N*,3><= , 934” THEN GOTO 1000 460 IF LEFT*(N*,3)>="602* AND LEFT*(N*,3)<='611" THEN GOTO 3000 

190 IF LEFT*(N*,3)>=*938* AND LEFT*(N*,3)<=”945* THEN GOTO 1000 470 IF LEFT*(N*,3)>=*620* AND LEFT*(N*,3)<=*687* THEN GOTO 3000 

200 IF LEFT*(N*,3)=*948* OR LEFT*(N*,3>=*949* THEN GOTO 1000 480 IF LEFT*(N*,3>=*689* OR LEFT*(N*,3)=*698* THEN GOTO 3000 

£10 IF LEFT*(N*,3)="967* OR LEFT*(r«,3)=*996* THEN GOTO 2C00 490 IF LEFT*(N*, 3)>=*695* AND LEFT*(M*,3) <.=‘698* THEN GOTO 3000 

220 1F LEFT*(N*,3)=*021‘ OR LEFT*(N*,3)=*024” THEN GOTO 2000 500 IF LEFT*(N*,3)>=*700“ AND LEFT*(N*,3)<=*799* THEN GOTO 3000 

230 IF LEFT*(N*,3)>=*030* AND LEFT*(N*,3)<=*045* THEN GOTO 2000 510 IF LEFT*(N*,3)>= *800* AND LEFT*(N*,3)<=”821 * THEN G0 T 0 3000 

240 1F LEFT*(N*,3)>=*050* AND LEFT*(N*,3i<=*059* THEN GOTO 2000 520 IF LEFT*(N$,3)>=“813” AND LEFT*(N*,3)<=*899* THEN GOTO 3000 

250 IF LEFT * ( f4*, 3 )=* 061 * OR LEFT*(N*,3>=*062" THEN GOTO 2000 ,530 GOTO 10 

1000 LOCATE 10,12: PRINT 'Nouveau numéro a'8 chiffres: *;*6*;LEFT*(N*,1>;*■*;RIGHT*(N*,8)i* (==> Région Parisienne)' 

1010 PRINT* ' 

1020 LOCATE 27,24:INPUT 'UNE AUTRE RECHERCHE ?*jR$ 

1030 IF Ri='0" OR R$='o" THEN GOTO 10 

1040 IF Rt='N' OR R$=V THEN GOTO 4000 

1050 GOTO 1020 
1060 END 

2000 LOCATE 10,12: PRINT 'Nouveau numéro a 8 chiffres: ' î’3' ;LEFT*< N*, 1 ) ; *. * ;RIGHT*(M*,8) ; * (~> Région Parisienne)' 

2005 PRINT' ' 

2010 LOCATE 27,24:INPUT 'UNE AUTRE RECHERCHE ?";R$ 

2020 IF RS=*0* OR Rt='o* THEN GOTO 1D 

2030 IF R$='N' OR R*=V THEN GOTO 4000 

2040 GOTO 2010 

2050 END . 

3000 LOCATE 10,12: PRINT 'Nouveau numéro a 8 chiffres: , 4'iLEFTi(N$,l){'. , iRIGHTi(Ni,8)}" (=> Région Parisienne)' 

3005 PRINT' ' 

3010 LOCATE 27,24:INPUT 'UNE AUTRE RECHERCHE ?*;R* 

3020 IF R$='0' OR R*='o’ THEN GOTO 10 

3030 IF Ri='N' OR R$=*n' THEN GOTO 4000 

3040 GOTO 3010 
3050 END 

4000 PRINT 'MERCI AMSTRAD...*:END 

5000 CLSiMODE QîLOCATE 6,8:PRINT'NUMERO 8':L0CATE 2,22:PRINT*(0 François Nord*:LOCATE 6,9:PRINT*-*:PEN 1:PAPER 0:INK 1,24,1 

ïINK 0,0 


5010 FOR 1=1 TO 5000:NEXT I 


5020 RETURN 


l 
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Après avoir conçu TURBO-Pascal, Philippe KAHN a créé autour de ce programme 
toute une famille de logiciels complémentaires, qui permet de tout faire ou presque ; 
depuis l’enseignement sans peine du langage Pascal aux jeux, en passant par le dessin, 
la construction sur mesure de traitement de texte, de gestion de fichiers, etc... 



recevoir 


Disque 


iboors®] 


TURBO Pascal ■ 625 F H.T. (à partir de) 

Avec plus de 400.000 utilisateurs dans le monde 
entier, TURBO Pascal est le compilateur le plus 
utilisé. Vous disposez en un seul programme 
d'un environnement complet, éditeur et compilateur, 
pour programmer en Pascal. TURBO Pascal compile 
directement en mémoire pour plus de rapidité. 

Puissance 

Le langage Pascal est actuellement un des langages 
les plus performants sur micro-ordinateurs. 

Ses applications sont nombreuses : gestion, calculs 
scientifiques, logiciels systèmes, graphisme, jeux, 
intelligence artificielle... TURBO Pascal a été retenu 
dans le cadre de l'opération « Informatique Pour 
Tous » comme support d'enseignement du langage 
Pascal dans les lycées et les universités. Un gage 
de qualité et de sérieux. Les machines 16 bits 
disposent de deux options : l'option 87 gère 
le microprocesseur 8087 pour augmenter la vitesse 
et la précision dans les calculs ; l'option BCD utilise 
la représentation décimale codée binaire pour 
éliminer les erreurs d'arrondi. 

La version IBM comporte en plus des routines 
graphiques et une tortue. 

Portabilité 

TURBO Pascal tourne sur un grand nombre de 
machines, sous MS/PC-DOS, CP/M-80/86, depuis 
l'Amstrad jusqu'à l'IBM AT. 

Prix 

TURBO Pascal offre le meilleur rapport qualité/prix 
pour 625 F H.T. (sous CP/M-80) ou 800 F H.T. 
(PC/MS-DOS) vous disposez d'un éditeur plein 
écran et d'un compilateur Pascal complet. Ces prix 
comprennent le manuel de 350 pages en français. 

La disquette comprend de plus le code source de 
MicroCalc, petit tableur écrit en TURBO Pascal. 


TURBO-Tutor • 350 F H.T. 

Turbo-Tutor est un cours d'auto-formation à TURBO 
Pascal. Les débutants comme les programmeurs 
expérimentés y trouveront une aide précieuse dans 
récriture de leurs programmes Pascal. Ce cours 
comprend un manuel de 200 pages en français 
et une disquette avec le code source de tous 
les exemples. 

TURBO-Graphix - 675 F H.T. 

TURBO-Graphix est une librairie complète de routines 
graphiques haute résolution pour IBM et 
compatibles. Ces routines vous permettent le tracé 
de figures géométriques, de courbes, de polygones. 
Elles comprennent également tous les outils pour 
gérer des fenêtres. En anglais. Manuel en français 
disponible fin 85. 

TURBO-Toolbox ■ 625 F H.T. 

TURBO-Toolbox comprend trois utilitaires 
constamment utilisés par les développeurs : une 
gestion de fichier ISAM (par la méthode des arbres 
B + ), une routine générale de tri et un programme 
générant un module d'installation pour les 
programmes écrits avec TURBO Pascal. Si vous 
développez très souvent des applications, ces outils 
performants vous feront gagner un temps précieux. 
Ils sont fournis sous forme de routines TURBO 
Pascal, utilisables et modifiables à volonté. 


TURBO-Gameworks ■ 700 F H.T. 

Echec, Bridge et Go-Moku. _ 

Découvrez les secrets des jeux les plus performants 
sur micro-ordinateurs. Ces jeux sont compilés et 
prêts à vous procurer de nombreuses heures de 
détente (ou de nuits blanches). Mais vous disposez 
également du code source sur votre disquette. Grâce 
aux sources et au manuel, la théorie des jeux 
n'aura plus de secrets pour vous. C'est également 
une façon agréable d'apprendre à programmer en 
Pascal. En anglais. Version française disponible 
début 86. Pour IBM et compatibles avec TURBO 
Pascal 3.0. 


TURBO Editor • 700 F H.T. \N 

Construisez votre propre traitement de texte ou 
incorporez-le dans vos programmes. Avec TURBO 
Editor, vous avez : le code source prêt à être 
compilé, un traitement de texte complet,un manuel de 
200 pages indiquant comment intégrer les procédures 
et les fonctions de l'éditeur dans vos programmes. 
TURBO Editor permet le fenêtrage. Vous pouvez 
ainsi éditer plusieurs documents ou plusieurs parties 
du même document en même temps. Pour IBM et 
compatibles avec TURBO Pascal 3.0. 
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LA PUISSANCE DERRI 


CRAYON OPTIQUE 

Un ensemble sophistiqué pour 
vos graphismes. Il comprend 
une palette de couleurs. Tracé 
au point par point, choix des 
brosses, mélange de textes et 
création de sa propre police de 
caractères. 

Il permet d’agrandir, de réduire 
vos dessins, de créer des cer¬ 
cles, des rectangles, des lignes, 
des courbes, d’y ajouter la 
couleur. 

Et il y a aussi possibilité de 
stockage et de rechargement, 
de réglage du stylo optique et 
de copie d’écran sur 
imprimante. 

Version cassette et version 
ROM. 

Version cassette (Pour CPC 464 
seulement) : 249 F. 

Version ROM (Pour CPC 464 et 
CPC 6128) : 349 F. 

SYNTHETISEUR 
DE PAROLE 

Un synthétiseur de parole et un 
amplificateur stéréo puissant 
qui apporte une extraordinaire 
qualité au haut parleur interne 
de l’ordinateur. 

L’utilisation est aisée et le 
vocabulaire pratiquement 
iilimité. 

Fourni avec des morceaux de 
textes et un utilitaire de trans¬ 
cription phonique pour faciliter 
l’utilisation. 

Il comprend 2 haut parleurs de 
10 cm de large, d’une grande 
qualité. 

Version cassette et version 
ROM. 

Version cassette (Pour CPC 464 
seulement) : 349 F. 

Version ROM (Pour CPC 464 et 
CPC 6128) : 490 F. 



EN VENTE CHEZ 


18 BOURGES - SDTE, 210 av. Général de Gaulle. 48.65.11.52. 

45 ORLEANS - AGB, 11, rue d’Illiers. 38.62.77.95. 

59 VILLENEUVE D’ASCQ - MICROPUCE, 15, chaussée de l’Hôtel de Ville. 20.47.18.57. 

75010 - GENERAL, 10, bd de Strasbourg. 42.06.50.50. 

75011 - AMIE, 11, bd Voltaire. 43.57.48.20. 

75011 - VISMO, 84, bd Beaumarchais. 43.38.60.00. 

75015 - HYPER CB, 183, rue Saint-Charles. 45.58.23.68. 

75017 - MICRO-PROGRAMMES-5, 82-84, bd des Batignolles. 42.93.24.58. 

94300 MONTREUIL - ORDIVIDUEL, 20, rue de Montreuil. 43.28.22.06. 









CASSETTE 



ABBETEZ DE TAPEE! 


Fini les erreurs ! 


Tous les listings de chaque numéro 
d’AMSTRAD MAGAZINE sur cassette. 

• 1 cassette : 68 F (port inclus). 

• Abonnement cassettes : chaque mois la cassette vous parviendra 

à la sortie du numéro : 605 F pour 11 numéros (soit 55 F seulement la cassette). 

350 F pour 6 numéros (soit 58,33 F la cassette). 




AMSTRAD DANS LA PEAU! 

Eh oui ! AMSTRAD MAGAZINE vous habille. 

Le super T-shirt aux couleurs de votre revue préférée 
est d’excellente qualité (T-shirt américain Hanes). 

Il sera à vous pour : 69,50 F et à 59,50 F pour les adhérents 
du Club AMSTRAD MAGAZINE 

(plus 10 F de frais de port). Europe : 90 F. Airmail : 110 F. 



LE CLUB MAGAZINE 


TOUT MOINS CHER 

Comme des centaines d’utilisateurs rejoignez le Club 
qui vous informe, vous assiste et vous défend. 

Une trentaine déjà de magasins assurent aux adhérents une remise sur 
les périphériques et les logiciels. 

Prix d’adhésion : non-abonnés : 150 F + droit d’entrée de 77 F, soit 227 F. 
Abonnés : 150 F seulement (vous êtes dispensés du droit d’entrée). 
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ALAN SUGAR. 



Pour recevoir un ancien numéro 
joignez 18 F par numéro plus 6,50 F 
de frais d'envoi pour un numéro 
et 10,50 F pour trois numéros. 
Numéro 5 : 25 F 
Numéro 1 : épuisé 
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ïEOmi: LA BANQUE 
MÉMCiPE 


ORDINATEURS, IMPRIMANTES, UNITÉS DE 
DISQUEUES, JOYSTICKS, EXTENSIONS, ETC... 


























ELF SERVICE 


| ABONNEZ-VOUS 




Enfin un magazine consacré aux ordinateurs de la gamme AMSTRAD, du CPC 464 
au PCW 8256 et à leurs applications. Tout sur les machines, leurs périphériques, 
leurs programmes... Des tests, des listings inédits, des reportages, des trucs ou 


leurs programmes... Des test 
astuces, des petites annonces 


- , (J— 7 C U ' 

etites annonces. 

fi NUMEROS: 170r 

11 AUlIlUOt I W 

ECONOMISES 28 f 



Nom __ Prénom 

Rue _ 


Code postal 


Ville 


□ Je m’abonne à AMSTRAD MAGAZINE pour la somme de 170 F pour onze numéros. 

Europe : 240 FF. Airmail : 270 FF 


l Je désire recevoir : 

i □ 1 cassette (68 F). 

□ 6 cassettes (350 F) (Airmail 395 F) 

□ 11 cassettes (605 F) (Airmail 650 F) 

□ T-shirt(s) non-adhérent(s) au CLub 

(69,50 F x ) + 10 F = 

□ T-shirt(s) adhérent(s) au Club 

i (59,50 F x ) + 10 F = 


□ Cotisation annuelle au Club (non abonné) 
150 F + 77 F = 227 F 

□ Cotisation annuelle au Club (abonné) 

150 F 

□ 1 numéro AMSTRAD MAGAZINE 
18 F + 6,50 F = 24,50 F 

□ Les 4 numéros 

60 F + 13 F de frais de port = 73 F 
Date Signature 


• Coupon à renvoyer à AMSTRAD MAGAZINE, 55, avenue Jean-Jaurès, 75019 Paris. 

• Ci-joint mon règlement par : □ chèque bancaire □ chèque postal □ mandat 
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DISSIPEZ LES NUAGES 
ENTRE LES MATHS ET VOUS 



SUPERPROF 


PRESENTES A 

AMSTRAD EXPO 


of>h 


MATHÉMATIQUES, 6 e ET 5 e : ce logiciel couvre entièrement les 2 programmes 
officiels; mais, comme un professeur présent, il suit l’élève dans son travail et l’aide à 
rectifier ses erreurs. 

De plus, son utilisation est d’une grande souplesse : Il donne des cours et explique 
avec des exemples. Il propose des exercices d’applications, à données variables à 
l’infini. Il laisse à l’élève la liberté d'introduire ses données. 

Ainsi, c’est à son propre rythme que l’élève, suivi mais libre, assimile son programme 
de mathématiques. 
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31 CHAMPS-ELYSÉES - BUREAU 219 - 75008 PARIS 
CONTACTEZ-NOUS AU (1) 47.68.94.53. 








